﻿<?xml version="1.0" encoding="utf-8"?>
<namespace name="uPSCompiler">
  <const name="pmIn" type="TPSParameterMode">
    <value>
      pmIn
    </value>
  </const>
  <const name="pmOut" type="TPSParameterMode">
    <value>
      pmOut
    </value>
  </const>
  <const name="pmInOut" type="TPSParameterMode">
    <value>
      pmInOut
    </value>
  </const>
  <enum name="TPSParameterMode">
    <element name="pmIn" />
    <element name="pmOut" />
    <element name="pmInOut" />
  </enum>
  <const name="tMainBegin" type="TPSSubOptType">
    <value>
      tMainBegin
    </value>
  </const>
  <const name="tProcBegin" type="TPSSubOptType">
    <value>
      tProcBegin
    </value>
  </const>
  <const name="tSubBegin" type="TPSSubOptType">
    <value>
      tSubBegin
    </value>
  </const>
  <const name="tOneLiner" type="TPSSubOptType">
    <value>
      tOneLiner
    </value>
  </const>
  <const name="tifOneliner" type="TPSSubOptType">
    <value>
      tifOneliner
    </value>
  </const>
  <const name="tRepeat" type="TPSSubOptType">
    <value>
      tRepeat
    </value>
  </const>
  <const name="tTry" type="TPSSubOptType">
    <value>
      tTry
    </value>
  </const>
  <const name="tTryEnd" type="TPSSubOptType">
    <value>
      tTryEnd
    </value>
  </const>
  <const name="tUnitInit" type="TPSSubOptType">
    <value>
      tUnitInit
    </value>
  </const>
  <const name="tUnitFinish" type="TPSSubOptType">
    <value>
      tUnitFinish
    </value>
  </const>
  <enum name="TPSSubOptType">
    <element name="tMainBegin" />
    <element name="tProcBegin" />
    <element name="tSubBegin" />
    <element name="tOneLiner" />
    <element name="tifOneliner" />
    <element name="tRepeat" />
    <element name="tTry" />
    <element name="tTryEnd" />
    <element name="tUnitInit" />
    <element name="tUnitFinish" />
  </enum>
  <class name="EPSCompilerException">
    <ancestor name="Exception" namespace="SysUtils">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="CreateFmt" visibility="public">
      </methodref>
      <methodref name="CreateRes" visibility="public">
      </methodref>
      <methodref name="CreateRes" visibility="public">
      </methodref>
      <methodref name="CreateResFmt" visibility="public">
      </methodref>
      <methodref name="CreateResFmt" visibility="public">
      </methodref>
      <methodref name="CreateHelp" visibility="public">
      </methodref>
      <methodref name="CreateFmtHelp" visibility="public">
      </methodref>
      <methodref name="CreateResHelp" visibility="public">
      </methodref>
      <methodref name="CreateResHelp" visibility="public">
      </methodref>
      <methodref name="CreateResFmtHelp" visibility="public">
      </methodref>
      <methodref name="CreateResFmtHelp" visibility="public">
      </methodref>
      <propertyref name="HelpContext" visibility="public">
      </propertyref>
      <propertyref name="Message" visibility="public">
      </propertyref>
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
  </class>
  <class name="TPSParameterDecl">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FName" type="string" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FMode" type="TPSParameterMode" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="Name" visibility="public" read="FName" type="string" />
      <property name="OrgName" visibility="public" read="FOrgName" write="SetName" type="string" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
      <property name="Mode" visibility="public" read="FMode" write="FMode" type="TPSParameterMode" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
    </members>
  </class>
  <class name="TPSParametersDecl">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FParams" type="TPSList" visibility="private" />
      <field name="FResult" type="TPSType" visibility="private" />
      <function name="GetParam" visibility="private">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSParameterDecl" />
        </parameters>
      </function>
      <function name="GetParamCount" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <property name="Params" visibility="public" read="GetParam" type="TPSParameterDecl" />
      <property name="ParamCount" visibility="public" read="GetParamCount" type="Integer" />
      <function name="AddParam" visibility="public">
        <parameters>
          <retval type="TPSParameterDecl" />
        </parameters>
      </function>
      <procedure name="DeleteParam" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
        </parameters>
      </procedure>
      <property name="Result" visibility="public" read="FResult" write="FResult" type="TPSType" />
      <procedure name="Assign" visibility="public">
        <parameters>
          <parameter name="Params" type="TPSParametersDecl" />
        </parameters>
      </procedure>
      <function name="Same" visibility="public">
        <parameters>
          <parameter name="d" type="TPSParametersDecl" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSRegProc">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FDecl" type="TPSParametersDecl" visibility="private" />
      <field name="FExportName" type="Boolean" visibility="private" />
      <field name="FImportDecl" type="string" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Decl" visibility="public" read="FDecl" type="TPSParametersDecl" />
      <property name="ExportName" visibility="public" read="FExportName" write="FExportName" type="Boolean" />
      <property name="ImportDecl" visibility="public" read="FImportDecl" write="FImportDecl" type="string" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="PIFPSRegProc" alias="TPSRegProc" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FDecl" type="TPSParametersDecl" visibility="private" />
      <field name="FExportName" type="Boolean" visibility="private" />
      <field name="FImportDecl" type="string" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Decl" visibility="public" read="FDecl" type="TPSParametersDecl" />
      <property name="ExportName" visibility="public" read="FExportName" write="FExportName" type="Boolean" />
      <property name="ImportDecl" visibility="public" read="FImportDecl" write="FImportDecl" type="string" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <pointer name="PIfRVariant" type="TIfRVariant" indircnt="1" />
  <struct name="TIfRVariant">
    <field name="FType" type="TPSType" visibility="public" />
    <field name="tu8" type="Byte" visibility="public" />
    <field name="tS8" type="Shortint" visibility="public" />
    <field name="tu16" type="Word" visibility="public" />
    <field name="ts16" type="Smallint" visibility="public" />
    <field name="tu32" type="Cardinal" visibility="public" />
    <field name="ts32" type="Integer" visibility="public" />
    <field name="tsingle" type="Single" visibility="public" />
    <field name="tdouble" type="Double" visibility="public" />
    <field name="textended" type="Extended" visibility="public" />
    <field name="tcurrency" type="Currency" visibility="public" />
    <field name="tstring" type="Pointer" visibility="public" />
    <field name="ts64" type="Int64" visibility="public" />
    <field name="tu64" type="UInt64" visibility="public" />
    <field name="tchar" type="Char" visibility="public" />
    <field name="twidestring" type="Pointer" visibility="public" />
    <field name="twidechar" type="WideChar" visibility="public" />
  </struct>
  <class name="TPSRecordFieldTypeDef">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FFieldOrgName" type="string" visibility="private" />
      <field name="FFieldName" type="string" visibility="private" />
      <field name="FFieldNameHash" type="Integer" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <procedure name="SetFieldOrgName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="FieldOrgName" visibility="public" read="FFieldOrgName" write="SetFieldOrgName" type="string" />
      <property name="FieldName" visibility="public" read="FFieldName" type="string" />
      <property name="FieldNameHash" visibility="public" read="FFieldNameHash" type="Integer" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
    </members>
  </class>
  <class name="PIFPSRecordFieldTypeDef" alias="TPSRecordFieldTypeDef" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FFieldOrgName" type="string" visibility="private" />
      <field name="FFieldName" type="string" visibility="private" />
      <field name="FFieldNameHash" type="Integer" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <procedure name="SetFieldOrgName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="FieldOrgName" visibility="public" read="FFieldOrgName" write="SetFieldOrgName" type="string" />
      <property name="FieldName" visibility="public" read="FFieldName" type="string" />
      <property name="FieldNameHash" visibility="public" read="FFieldNameHash" type="Integer" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
    </members>
  </class>
  <class name="TPSType">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FBaseType" type="Byte" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FExportName" type="Boolean" visibility="private" />
      <field name="FOriginalName" type="string" visibility="private" />
      <field name="FAttributes" type="TPSAttributes" visibility="private" />
      <field name="FFinalTypeNo" type="Cardinal" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="Attributes" visibility="public" read="FAttributes" type="TPSAttributes" />
      <property name="FinalTypeNo" visibility="public" read="FFinalTypeNo" type="Cardinal" />
      <property name="OriginalName" visibility="public" read="FOriginalName" write="FOriginalName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="BaseType" visibility="public" read="FBaseType" write="FBaseType" type="Byte" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="ExportName" visibility="public" read="FExportName" write="FExportName" type="Boolean" />
      <procedure name="Use" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="PIFPSType" alias="TPSType" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FBaseType" type="Byte" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FExportName" type="Boolean" visibility="private" />
      <field name="FOriginalName" type="string" visibility="private" />
      <field name="FAttributes" type="TPSAttributes" visibility="private" />
      <field name="FFinalTypeNo" type="Cardinal" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="Attributes" visibility="public" read="FAttributes" type="TPSAttributes" />
      <property name="FinalTypeNo" visibility="public" read="FFinalTypeNo" type="Cardinal" />
      <property name="OriginalName" visibility="public" read="FOriginalName" write="FOriginalName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="BaseType" visibility="public" read="FBaseType" write="FBaseType" type="Byte" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="ExportName" visibility="public" read="FExportName" write="FExportName" type="Boolean" />
      <procedure name="Use" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="TPSVariantType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <function name="GetDynInvokeProcNo" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Owner" type="TPSPascalCompiler" />
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Params" type="TPSParameters" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="GetDynIvokeSelfType" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Owner" type="TPSPascalCompiler" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="GetDynInvokeParamType" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Owner" type="TPSPascalCompiler" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="GetDynIvokeResulType" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Owner" type="TPSPascalCompiler" />
          <retval type="TPSType" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSRecordType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FRecordSubVals" type="TPSList" visibility="private" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <function name="RecValCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="RecVal" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSRecordFieldTypeDef" />
        </parameters>
      </function>
      <function name="AddRecVal" visibility="public">
        <parameters>
          <retval type="TPSRecordFieldTypeDef" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSClassType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FCL" type="TPSCompileTimeClass" visibility="private" />
      <property name="Cl" visibility="public" read="FCL" write="FCL" type="TPSCompileTimeClass" />
    </members>
  </class>
  <class name="TPSUndefinedClassType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FExtClass" type="TPSExternalClass" visibility="private" />
      <property name="ExtClass" visibility="public" read="FExtClass" write="FExtClass" type="TPSExternalClass" />
    </members>
  </class>
  <class name="TPSInterfaceType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FIntf" type="TPSInterface" visibility="private" />
      <property name="Intf" visibility="public" read="FIntf" write="FIntf" type="TPSInterface" />
    </members>
  </class>
  <class name="TPSProceduralType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FProcDef" type="TPSParametersDecl" visibility="private" />
      <property name="ProcDef" visibility="public" read="FProcDef" type="TPSParametersDecl" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSArrayType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FArrayTypeNo" type="TPSType" visibility="private" />
      <property name="ArrayTypeNo" visibility="public" read="FArrayTypeNo" write="FArrayTypeNo" type="TPSType" />
    </members>
  </class>
  <class name="TPSStaticArrayType">
    <ancestor name="TPSArrayType" namespace="uPSCompiler">
      <propertyref name="ArrayTypeNo" visibility="public" />
      <ancestor name="TPSType" namespace="uPSCompiler">
        <methodref name="SetName" visibility="private" />
        <methodref name="Create" visibility="public" />
        <methodref name="Destroy" visibility="public" />
        <propertyref name="Attributes" visibility="public" />
        <propertyref name="FinalTypeNo" visibility="public" />
        <propertyref name="OriginalName" visibility="public" />
        <propertyref name="Name" visibility="public" />
        <propertyref name="NameHash" visibility="public" />
        <propertyref name="BaseType" visibility="public" />
        <propertyref name="DeclareUnit" visibility="public" />
        <propertyref name="DeclarePos" visibility="public" />
        <propertyref name="DeclareRow" visibility="public" />
        <propertyref name="DeclareCol" visibility="public" />
        <propertyref name="Used" visibility="public" />
        <propertyref name="ExportName" visibility="public" />
        <methodref name="Use" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FStartOffset" type="Integer" visibility="private" />
      <field name="FLength" type="Cardinal" visibility="private" />
      <property name="StartOffset" visibility="public" read="FStartOffset" write="FStartOffset" type="Integer" />
      <property name="Length" visibility="public" read="FLength" write="FLength" type="Cardinal" />
    </members>
  </class>
  <class name="TPSSetType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FSetType" type="TPSType" visibility="private" />
      <function name="GetByteSize" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetBitSize" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <property name="SetType" visibility="public" read="FSetType" write="FSetType" type="TPSType" />
      <property name="ByteSize" visibility="public" read="GetByteSize" type="Integer" />
      <property name="BitSize" visibility="public" read="GetBitSize" type="Integer" />
    </members>
  </class>
  <class name="TPSTypeLink">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FLinkTypeNo" type="TPSType" visibility="private" />
      <property name="LinkTypeNo" visibility="public" read="FLinkTypeNo" write="FLinkTypeNo" type="TPSType" />
    </members>
  </class>
  <class name="TPSEnumType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FHighValue" type="Cardinal" visibility="private" />
      <property name="HighValue" visibility="public" read="FHighValue" write="FHighValue" type="Cardinal" />
    </members>
  </class>
  <class name="TPSProcedure">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FAttributes" type="TPSAttributes" visibility="private" />
      <property name="Attributes" visibility="public" read="FAttributes" type="TPSAttributes" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSAttributeTypeField">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FOwner" type="TPSAttributeType" visibility="private" />
      <field name="FFieldOrgName" type="string" visibility="private" />
      <field name="FFieldName" type="string" visibility="private" />
      <field name="FFieldNameHash" type="Integer" visibility="private" />
      <field name="FFieldType" type="TPSType" visibility="private" />
      <field name="FHidden" type="Boolean" visibility="private" />
      <procedure name="SetFieldOrgName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="AOwner" type="TPSAttributeType" />
        </parameters>
      </constructor>
      <property name="Owner" visibility="public" read="FOwner" type="TPSAttributeType" />
      <property name="FieldOrgName" visibility="public" read="FFieldOrgName" write="SetFieldOrgName" type="string" />
      <property name="FieldName" visibility="public" read="FFieldName" type="string" />
      <property name="FieldNameHash" visibility="public" read="FFieldNameHash" type="Integer" />
      <property name="FieldType" visibility="public" read="FFieldType" write="FFieldType" type="TPSType" />
      <property name="Hidden" visibility="public" read="FHidden" write="FHidden" type="Boolean" />
    </members>
  </class>
  <class name="TPSAttributeType">
    <ancestor name="TPSType" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Attributes" visibility="public" />
      <propertyref name="FinalTypeNo" visibility="public" />
      <propertyref name="OriginalName" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="BaseType" visibility="public" />
      <propertyref name="DeclareUnit" visibility="public" />
      <propertyref name="DeclarePos" visibility="public" />
      <propertyref name="DeclareRow" visibility="public" />
      <propertyref name="DeclareCol" visibility="public" />
      <propertyref name="Used" visibility="public" />
      <propertyref name="ExportName" visibility="public" />
      <methodref name="Use" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FFields" type="TPSList" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FOrgname" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FAAProc" type="TPSApplyAttributeToProc" visibility="private" />
      <field name="FAAType" type="TPSApplyAttributeToType" visibility="private" />
      <function name="GetField" visibility="private">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSAttributeTypeField" />
        </parameters>
      </function>
      <function name="GetFieldCount" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OnApplyAttributeToType" visibility="public" read="FAAType" write="FAAType" type="Boolean" />
      <property name="OnApplyAttributeToProc" visibility="public" read="FAAProc" write="FAAProc" type="Boolean" />
      <property name="Fields" visibility="public" read="GetField" type="TPSAttributeTypeField" />
      <property name="FieldCount" visibility="public" read="GetFieldCount" type="Integer" />
      <procedure name="DeleteField" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
        </parameters>
      </procedure>
      <function name="AddField" visibility="public">
        <parameters>
          <retval type="TPSAttributeTypeField" />
        </parameters>
      </function>
      <property name="Name" visibility="public" read="FName" type="string" />
      <property name="OrgName" visibility="public" read="FOrgname" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSAttribute">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FAttribType" type="TPSAttributeType" visibility="private" />
      <field name="FValues" type="TPSList" visibility="private" />
      <function name="GetValueCount" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetValue" visibility="private">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="AttribType" type="TPSAttributeType" />
        </parameters>
      </constructor>
      <procedure name="Assign" visibility="public">
        <parameters>
          <parameter name="Item" type="TPSAttribute" />
        </parameters>
      </procedure>
      <property name="AType" visibility="public" read="FAttribType" type="TPSAttributeType" />
      <property name="Count" visibility="public" read="GetValueCount" type="Integer" />
      <property name="Values" visibility="public" read="GetValue" type="PIfRVariant" />
      <procedure name="DeleteValue" visibility="public">
        <parameters>
          <parameter name="i" type="Integer" />
        </parameters>
      </procedure>
      <function name="AddValue" visibility="public">
        <parameters>
          <parameter name="v" type="PIfRVariant" />
          <retval type="Integer" />
        </parameters>
      </function>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSAttributes">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FItems" type="TPSList" visibility="private" />
      <function name="GetCount" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetItem" visibility="private">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSAttribute" />
        </parameters>
      </function>
      <procedure name="Assign" visibility="public">
        <parameters>
          <parameter name="attr" type="TPSAttributes" />
          <parameter name="Move" type="Boolean" />
        </parameters>
      </procedure>
      <property name="Count" visibility="public" read="GetCount" type="Integer" />
      <property name="Items" visibility="public" read="GetItem" type="TPSAttribute" />
      <procedure name="Delete" visibility="public">
        <parameters>
          <parameter name="i" type="Integer" />
        </parameters>
      </procedure>
      <function name="Add" visibility="public">
        <parameters>
          <parameter name="AttribType" type="TPSAttributeType" />
          <retval type="TPSAttribute" />
        </parameters>
      </function>
      <function name="FindAttribute" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSAttribute" />
        </parameters>
      </function>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSProcVar">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="AType" visibility="public" read="FType" write="FType" type="TPSType" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <procedure name="Use" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="PIFPSProcVar" alias="TPSProcVar" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="AType" visibility="public" read="FType" write="FType" type="TPSType" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <procedure name="Use" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="TPSExternalProcedure">
    <ancestor name="TPSProcedure" namespace="uPSCompiler">
      <propertyref name="Attributes" visibility="public" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FRegProc" type="TPSRegProc" visibility="private" />
      <property name="RegProc" visibility="public" read="FRegProc" write="FRegProc" type="TPSRegProc" />
    </members>
  </class>
  <class name="TPSInternalProcedure">
    <ancestor name="TPSProcedure" namespace="uPSCompiler">
      <propertyref name="Attributes" visibility="public" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FForwarded" type="Boolean" visibility="private" />
      <field name="FData" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FDecl" type="TPSParametersDecl" visibility="private" />
      <field name="FProcVars" type="TPSList" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FOutputDeclPosition" type="Cardinal" visibility="private" />
      <field name="FResultUsed" type="Boolean" visibility="private" />
      <field name="FLabels" type="TPSStringList" visibility="private" />
      <field name="FGotos" type="TPSStringList" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FOriginalName" type="string" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="Forwarded" visibility="public" read="FForwarded" write="FForwarded" type="Boolean" />
      <property name="Data" visibility="public" read="FData" write="FData" type="string" />
      <property name="Decl" visibility="public" read="FDecl" type="TPSParametersDecl" />
      <property name="OriginalName" visibility="public" read="FOriginalName" write="FOriginalName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="ProcVars" visibility="public" read="FProcVars" type="TPSList" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <property name="OutputDeclPosition" visibility="public" read="FOutputDeclPosition" write="FOutputDeclPosition" type="Cardinal" />
      <property name="ResultUsed" visibility="public" read="FResultUsed" type="Boolean" />
      <property name="Labels" visibility="public" read="FLabels" type="TPSStringList" />
      <property name="Gotos" visibility="public" read="FGotos" type="TPSStringList" />
      <procedure name="Use" visibility="public">
      </procedure>
      <procedure name="ResultUse" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="TPSVar">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FExportName" type="string" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FSaveAsPointer" type="Boolean" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="SaveAsPointer" visibility="public" read="FSaveAsPointer" write="FSaveAsPointer" type="Boolean" />
      <property name="ExportName" visibility="public" read="FExportName" write="FExportName" type="string" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <procedure name="Use" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="PIFPSVar" alias="TPSVar" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FExportName" type="string" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FSaveAsPointer" type="Boolean" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="SaveAsPointer" visibility="public" read="FSaveAsPointer" write="FSaveAsPointer" type="Boolean" />
      <property name="ExportName" visibility="public" read="FExportName" write="FExportName" type="string" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <procedure name="Use" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="TPSConstant">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FValue" type="PIfRVariant" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Value" visibility="public" read="FValue" write="FValue" type="PIfRVariant" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <procedure name="SetSet" visibility="public">
        <parameters>
          <parameter name="val" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetInt" visibility="public">
        <parameters>
          <parameter name="Val" type="Integer" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetUInt" visibility="public">
        <parameters>
          <parameter name="Val" type="Cardinal" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetInt64" visibility="public">
        <parameters>
          <parameter name="Val" type="Int64" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetString" visibility="public">
        <parameters>
          <parameter name="Val" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetChar" visibility="public">
        <parameters>
          <parameter name="c" type="Char" />
        </parameters>
      </procedure>
      <procedure name="SetWideChar" visibility="public">
        <parameters>
          <parameter name="val" type="WideChar" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetWideString" visibility="public">
        <parameters>
          <parameter name="val" type="WideString" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetUnicodeString" visibility="public">
        <parameters>
          <parameter name="val" type="WideString" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetExtended" visibility="public">
        <parameters>
          <parameter name="Val" type="Extended" paramflags="const" />
        </parameters>
      </procedure>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="PIFPSConstant" alias="TPSConstant" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FValue" type="PIfRVariant" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <property name="OrgName" visibility="public" read="FOrgName" write="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Value" visibility="public" read="FValue" write="FValue" type="PIfRVariant" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <procedure name="SetSet" visibility="public">
        <parameters>
          <parameter name="val" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetInt" visibility="public">
        <parameters>
          <parameter name="Val" type="Integer" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetUInt" visibility="public">
        <parameters>
          <parameter name="Val" type="Cardinal" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetInt64" visibility="public">
        <parameters>
          <parameter name="Val" type="Int64" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetString" visibility="public">
        <parameters>
          <parameter name="Val" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetChar" visibility="public">
        <parameters>
          <parameter name="c" type="Char" />
        </parameters>
      </procedure>
      <procedure name="SetWideChar" visibility="public">
        <parameters>
          <parameter name="val" type="WideChar" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetWideString" visibility="public">
        <parameters>
          <parameter name="val" type="WideString" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetUnicodeString" visibility="public">
        <parameters>
          <parameter name="val" type="WideString" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="SetExtended" visibility="public">
        <parameters>
          <parameter name="Val" type="Extended" paramflags="const" />
        </parameters>
      </procedure>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <const name="ecUnknownIdentifier" type="TPSPascalCompilerErrorType">
    <value>
      ecUnknownIdentifier
    </value>
  </const>
  <const name="ecIdentifierExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecIdentifierExpected
    </value>
  </const>
  <const name="ecCommentError" type="TPSPascalCompilerErrorType">
    <value>
      ecCommentError
    </value>
  </const>
  <const name="ecStringError" type="TPSPascalCompilerErrorType">
    <value>
      ecStringError
    </value>
  </const>
  <const name="ecCharError" type="TPSPascalCompilerErrorType">
    <value>
      ecCharError
    </value>
  </const>
  <const name="ecSyntaxError" type="TPSPascalCompilerErrorType">
    <value>
      ecSyntaxError
    </value>
  </const>
  <const name="ecUnexpectedEndOfFile" type="TPSPascalCompilerErrorType">
    <value>
      ecUnexpectedEndOfFile
    </value>
  </const>
  <const name="ecSemicolonExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecSemicolonExpected
    </value>
  </const>
  <const name="ecBeginExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecBeginExpected
    </value>
  </const>
  <const name="ecPeriodExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecPeriodExpected
    </value>
  </const>
  <const name="ecDuplicateIdentifier" type="TPSPascalCompilerErrorType">
    <value>
      ecDuplicateIdentifier
    </value>
  </const>
  <const name="ecColonExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecColonExpected
    </value>
  </const>
  <const name="ecUnknownType" type="TPSPascalCompilerErrorType">
    <value>
      ecUnknownType
    </value>
  </const>
  <const name="ecCloseRoundExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecCloseRoundExpected
    </value>
  </const>
  <const name="ecTypeMismatch" type="TPSPascalCompilerErrorType">
    <value>
      ecTypeMismatch
    </value>
  </const>
  <const name="ecInternalError" type="TPSPascalCompilerErrorType">
    <value>
      ecInternalError
    </value>
  </const>
  <const name="ecAssignmentExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecAssignmentExpected
    </value>
  </const>
  <const name="ecThenExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecThenExpected
    </value>
  </const>
  <const name="ecDoExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecDoExpected
    </value>
  </const>
  <const name="ecNoResult" type="TPSPascalCompilerErrorType">
    <value>
      ecNoResult
    </value>
  </const>
  <const name="ecOpenRoundExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecOpenRoundExpected
    </value>
  </const>
  <const name="ecCommaExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecCommaExpected
    </value>
  </const>
  <const name="ecToExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecToExpected
    </value>
  </const>
  <const name="ecIsExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecIsExpected
    </value>
  </const>
  <const name="ecOfExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecOfExpected
    </value>
  </const>
  <const name="ecCloseBlockExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecCloseBlockExpected
    </value>
  </const>
  <const name="ecVariableExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecVariableExpected
    </value>
  </const>
  <const name="ecStringExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecStringExpected
    </value>
  </const>
  <const name="ecEndExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecEndExpected
    </value>
  </const>
  <const name="ecUnSetLabel" type="TPSPascalCompilerErrorType">
    <value>
      ecUnSetLabel
    </value>
  </const>
  <const name="ecNotInLoop" type="TPSPascalCompilerErrorType">
    <value>
      ecNotInLoop
    </value>
  </const>
  <const name="ecInvalidJump" type="TPSPascalCompilerErrorType">
    <value>
      ecInvalidJump
    </value>
  </const>
  <const name="ecOpenBlockExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecOpenBlockExpected
    </value>
  </const>
  <const name="ecWriteOnlyProperty" type="TPSPascalCompilerErrorType">
    <value>
      ecWriteOnlyProperty
    </value>
  </const>
  <const name="ecReadOnlyProperty" type="TPSPascalCompilerErrorType">
    <value>
      ecReadOnlyProperty
    </value>
  </const>
  <const name="ecClassTypeExpected" type="TPSPascalCompilerErrorType">
    <value>
      ecClassTypeExpected
    </value>
  </const>
  <const name="ecCustomError" type="TPSPascalCompilerErrorType">
    <value>
      ecCustomError
    </value>
  </const>
  <const name="ecDivideByZero" type="TPSPascalCompilerErrorType">
    <value>
      ecDivideByZero
    </value>
  </const>
  <const name="ecMathError" type="TPSPascalCompilerErrorType">
    <value>
      ecMathError
    </value>
  </const>
  <const name="ecUnsatisfiedForward" type="TPSPascalCompilerErrorType">
    <value>
      ecUnsatisfiedForward
    </value>
  </const>
  <const name="ecForwardParameterMismatch" type="TPSPascalCompilerErrorType">
    <value>
      ecForwardParameterMismatch
    </value>
  </const>
  <const name="ecInvalidnumberOfParameters" type="TPSPascalCompilerErrorType">
    <value>
      ecInvalidnumberOfParameters
    </value>
  </const>
  <const name="ecNotAllowed" type="TPSPascalCompilerErrorType">
    <value>
      ecNotAllowed
    </value>
  </const>
  <const name="ecUnitNotFoundOrContainsErrors" type="TPSPascalCompilerErrorType">
    <value>
      ecUnitNotFoundOrContainsErrors
    </value>
  </const>
  <const name="ecCrossReference" type="TPSPascalCompilerErrorType">
    <value>
      ecCrossReference
    </value>
  </const>
  <enum name="TPSPascalCompilerErrorType">
    <element name="ecUnknownIdentifier" />
    <element name="ecIdentifierExpected" />
    <element name="ecCommentError" />
    <element name="ecStringError" />
    <element name="ecCharError" />
    <element name="ecSyntaxError" />
    <element name="ecUnexpectedEndOfFile" />
    <element name="ecSemicolonExpected" />
    <element name="ecBeginExpected" />
    <element name="ecPeriodExpected" />
    <element name="ecDuplicateIdentifier" />
    <element name="ecColonExpected" />
    <element name="ecUnknownType" />
    <element name="ecCloseRoundExpected" />
    <element name="ecTypeMismatch" />
    <element name="ecInternalError" />
    <element name="ecAssignmentExpected" />
    <element name="ecThenExpected" />
    <element name="ecDoExpected" />
    <element name="ecNoResult" />
    <element name="ecOpenRoundExpected" />
    <element name="ecCommaExpected" />
    <element name="ecToExpected" />
    <element name="ecIsExpected" />
    <element name="ecOfExpected" />
    <element name="ecCloseBlockExpected" />
    <element name="ecVariableExpected" />
    <element name="ecStringExpected" />
    <element name="ecEndExpected" />
    <element name="ecUnSetLabel" />
    <element name="ecNotInLoop" />
    <element name="ecInvalidJump" />
    <element name="ecOpenBlockExpected" />
    <element name="ecWriteOnlyProperty" />
    <element name="ecReadOnlyProperty" />
    <element name="ecClassTypeExpected" />
    <element name="ecCustomError" />
    <element name="ecDivideByZero" />
    <element name="ecMathError" />
    <element name="ecUnsatisfiedForward" />
    <element name="ecForwardParameterMismatch" />
    <element name="ecInvalidnumberOfParameters" />
    <element name="ecNotAllowed" />
    <element name="ecUnitNotFoundOrContainsErrors" />
    <element name="ecCrossReference" />
  </enum>
  <const name="ehVariableNotUsed" type="TPSPascalCompilerHintType">
    <value>
      ehVariableNotUsed
    </value>
  </const>
  <const name="ehFunctionNotUsed" type="TPSPascalCompilerHintType">
    <value>
      ehFunctionNotUsed
    </value>
  </const>
  <const name="ehCustomHint" type="TPSPascalCompilerHintType">
    <value>
      ehCustomHint
    </value>
  </const>
  <enum name="TPSPascalCompilerHintType">
    <element name="ehVariableNotUsed" />
    <element name="ehFunctionNotUsed" />
    <element name="ehCustomHint" />
  </enum>
  <const name="ewCalculationAlwaysEvaluatesTo" type="TPSPascalCompilerWarningType">
    <value>
      ewCalculationAlwaysEvaluatesTo
    </value>
  </const>
  <const name="ewIsNotNeeded" type="TPSPascalCompilerWarningType">
    <value>
      ewIsNotNeeded
    </value>
  </const>
  <const name="ewAbstractClass" type="TPSPascalCompilerWarningType">
    <value>
      ewAbstractClass
    </value>
  </const>
  <const name="ewCustomWarning" type="TPSPascalCompilerWarningType">
    <value>
      ewCustomWarning
    </value>
  </const>
  <enum name="TPSPascalCompilerWarningType">
    <element name="ewCalculationAlwaysEvaluatesTo" />
    <element name="ewIsNotNeeded" />
    <element name="ewAbstractClass" />
    <element name="ewCustomWarning" />
  </enum>
  <class name="TPSPascalCompilerMessage">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FRow" type="Cardinal" visibility="protected" />
      <field name="FCol" type="Cardinal" visibility="protected" />
      <field name="FModuleName" type="string" visibility="protected" />
      <field name="FParam" type="string" visibility="protected" />
      <field name="FPosition" type="Cardinal" visibility="protected" />
      <procedure name="SetParserPos" visibility="protected">
        <parameters>
          <parameter name="Parser" type="TPSPascalParser" />
        </parameters>
      </procedure>
      <property name="ModuleName" visibility="public" read="FModuleName" write="FModuleName" type="string" />
      <property name="Param" visibility="public" read="FParam" write="FParam" type="string" />
      <property name="Pos" visibility="public" read="FPosition" write="FPosition" type="Cardinal" />
      <property name="Row" visibility="public" read="FRow" write="FRow" type="Cardinal" />
      <property name="Col" visibility="public" read="FCol" write="FCol" type="Cardinal" />
      <function name="ErrorType" visibility="public" procflags="abstract virtual">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
      <procedure name="SetCustomPos" visibility="public">
        <parameters>
          <parameter name="Pos" type="Cardinal" />
          <parameter name="Row" type="Cardinal" />
          <parameter name="Col" type="Cardinal" />
        </parameters>
      </procedure>
      <function name="MessageToString" visibility="public" procflags="virtual">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
      <function name="ShortMessageToString" visibility="public" procflags="abstract virtual">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSPascalCompilerError">
    <ancestor name="TPSPascalCompilerMessage" namespace="uPSCompiler">
      <methodref name="SetParserPos" visibility="protected" />
      <propertyref name="ModuleName" visibility="public" />
      <propertyref name="Param" visibility="public" />
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="ErrorType" visibility="public" />
      <methodref name="SetCustomPos" visibility="public" />
      <methodref name="MessageToString" visibility="public" />
      <methodref name="ShortMessageToString" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FError" type="TPSPascalCompilerErrorType" visibility="protected" />
      <property name="Error" visibility="public" read="FError" type="TPSPascalCompilerErrorType" />
      <function name="ErrorType" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
      <function name="ShortMessageToString" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSPascalCompilerHint">
    <ancestor name="TPSPascalCompilerMessage" namespace="uPSCompiler">
      <methodref name="SetParserPos" visibility="protected" />
      <propertyref name="ModuleName" visibility="public" />
      <propertyref name="Param" visibility="public" />
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="ErrorType" visibility="public" />
      <methodref name="SetCustomPos" visibility="public" />
      <methodref name="MessageToString" visibility="public" />
      <methodref name="ShortMessageToString" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FHint" type="TPSPascalCompilerHintType" visibility="protected" />
      <property name="Hint" visibility="public" read="FHint" type="TPSPascalCompilerHintType" />
      <function name="ErrorType" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
      <function name="ShortMessageToString" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSPascalCompilerWarning">
    <ancestor name="TPSPascalCompilerMessage" namespace="uPSCompiler">
      <methodref name="SetParserPos" visibility="protected" />
      <propertyref name="ModuleName" visibility="public" />
      <propertyref name="Param" visibility="public" />
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="ErrorType" visibility="public" />
      <methodref name="SetCustomPos" visibility="public" />
      <methodref name="MessageToString" visibility="public" />
      <methodref name="ShortMessageToString" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FWarning" type="TPSPascalCompilerWarningType" visibility="protected" />
      <property name="Warning" visibility="public" read="FWarning" type="TPSPascalCompilerWarningType" />
      <function name="ErrorType" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
      <function name="ShortMessageToString" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
    </members>
  </class>
  <const name="dcTypes">
    <value>
      dcTypes
    </value>
  </const>
  <const name="dcProcs">
    <value>
      dcProcs
    </value>
  </const>
  <const name="dcVars">
    <value>
      dcVars
    </value>
  </const>
  <const name="dcConsts">
    <value>
      dcConsts
    </value>
  </const>
  <set name="TPSDuplicCheck">
    <element name="dcTypes" />
    <element name="dcProcs" />
    <element name="dcVars" />
    <element name="dcConsts" />
  </set>
  <class name="TPSBlockInfo">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FOwner" type="TPSBlockInfo" visibility="private" />
      <field name="FWithList" type="TPSList" visibility="private" />
      <field name="FProcNo" type="Cardinal" visibility="private" />
      <field name="FProc" type="TPSInternalProcedure" visibility="private" />
      <field name="FSubType" type="TPSSubOptType" visibility="private" />
      <property name="WithList" visibility="public" read="FWithList" type="TPSList" />
      <property name="ProcNo" visibility="public" read="FProcNo" write="FProcNo" type="Cardinal" />
      <property name="Proc" visibility="public" read="FProc" write="FProc" type="TPSInternalProcedure" />
      <property name="SubType" visibility="public" read="FSubType" write="FSubType" type="TPSSubOptType" />
      <procedure name="Clear" visibility="public">
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="Owner" type="TPSBlockInfo" />
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <const name="otAdd" type="TPSBinOperatorType">
    <value>
      otAdd
    </value>
  </const>
  <const name="otSub" type="TPSBinOperatorType">
    <value>
      otSub
    </value>
  </const>
  <const name="otMul" type="TPSBinOperatorType">
    <value>
      otMul
    </value>
  </const>
  <const name="otDiv" type="TPSBinOperatorType">
    <value>
      otDiv
    </value>
  </const>
  <const name="otMod" type="TPSBinOperatorType">
    <value>
      otMod
    </value>
  </const>
  <const name="otShl" type="TPSBinOperatorType">
    <value>
      otShl
    </value>
  </const>
  <const name="otShr" type="TPSBinOperatorType">
    <value>
      otShr
    </value>
  </const>
  <const name="otAnd" type="TPSBinOperatorType">
    <value>
      otAnd
    </value>
  </const>
  <const name="otOr" type="TPSBinOperatorType">
    <value>
      otOr
    </value>
  </const>
  <const name="otXor" type="TPSBinOperatorType">
    <value>
      otXor
    </value>
  </const>
  <const name="otAs" type="TPSBinOperatorType">
    <value>
      otAs
    </value>
  </const>
  <const name="otIntDiv" type="TPSBinOperatorType">
    <value>
      otIntDiv
    </value>
  </const>
  <const name="otGreaterEqual" type="TPSBinOperatorType">
    <value>
      otGreaterEqual
    </value>
  </const>
  <const name="otLessEqual" type="TPSBinOperatorType">
    <value>
      otLessEqual
    </value>
  </const>
  <const name="otGreater" type="TPSBinOperatorType">
    <value>
      otGreater
    </value>
  </const>
  <const name="otLess" type="TPSBinOperatorType">
    <value>
      otLess
    </value>
  </const>
  <const name="otEqual" type="TPSBinOperatorType">
    <value>
      otEqual
    </value>
  </const>
  <const name="otNotEqual" type="TPSBinOperatorType">
    <value>
      otNotEqual
    </value>
  </const>
  <const name="otIs" type="TPSBinOperatorType">
    <value>
      otIs
    </value>
  </const>
  <const name="otIn" type="TPSBinOperatorType">
    <value>
      otIn
    </value>
  </const>
  <enum name="TPSBinOperatorType">
    <element name="otAdd" />
    <element name="otSub" />
    <element name="otMul" />
    <element name="otDiv" />
    <element name="otMod" />
    <element name="otShl" />
    <element name="otShr" />
    <element name="otAnd" />
    <element name="otOr" />
    <element name="otXor" />
    <element name="otAs" />
    <element name="otIntDiv" />
    <element name="otGreaterEqual" />
    <element name="otLessEqual" />
    <element name="otGreater" />
    <element name="otLess" />
    <element name="otEqual" />
    <element name="otNotEqual" />
    <element name="otIs" />
    <element name="otIn" />
  </enum>
  <const name="otNot" type="TPSUnOperatorType">
    <value>
      otNot
    </value>
  </const>
  <const name="otMinus" type="TPSUnOperatorType">
    <value>
      otMinus
    </value>
  </const>
  <const name="otCast" type="TPSUnOperatorType">
    <value>
      otCast
    </value>
  </const>
  <enum name="TPSUnOperatorType">
    <element name="otNot" />
    <element name="otMinus" />
    <element name="otCast" />
  </enum>
  <class name="TPSPascalCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FAnyString" type="TPSType" visibility="protected" />
      <field name="FUnitName" type="string" visibility="protected" />
      <field name="FID" type="Pointer" visibility="protected" />
      <field name="FOnExportCheck" type="TPSOnExportCheck" visibility="protected" />
      <field name="FDefaultBoolType" type="TPSType" visibility="protected" />
      <field name="FRegProcs" type="TPSList" visibility="protected" />
      <field name="FConstants" type="TPSList" visibility="protected" />
      <field name="FProcs" type="TPSList" visibility="protected" />
      <field name="FTypes" type="TPSList" visibility="protected" />
      <field name="FAttributeTypes" type="TPSList" visibility="protected" />
      <field name="FVars" type="TPSList" visibility="protected" />
      <field name="FOutput" type="string" visibility="protected" />
      <field name="FParser" type="TPSPascalParser" visibility="protected" />
      <field name="FParserHadError" type="Boolean" visibility="protected" />
      <field name="FMessages" type="TPSList" visibility="protected" />
      <field name="FOnUses" type="TPSOnUses" visibility="protected" />
      <field name="FIsUnit" type="Boolean" visibility="protected" />
      <field name="FUtf8Decode" type="Boolean" visibility="protected" />
      <field name="FAllowNoBegin" type="Boolean" visibility="protected" />
      <field name="FAllowNoEnd" type="Boolean" visibility="protected" />
      <field name="FAllowUnit" type="Boolean" visibility="protected" />
      <field name="FBooleanShortCircuit" type="Boolean" visibility="protected" />
      <field name="FDebugOutput" type="string" visibility="protected" />
      <field name="FOnExternalProc" type="TPSOnExternalProc" visibility="protected" />
      <field name="FOnUseVariable" type="TPSOnUseVariable" visibility="protected" />
      <field name="FOnBeforeOutput" type="TPSOnNotify" visibility="protected" />
      <field name="FOnBeforeCleanup" type="TPSOnNotify" visibility="protected" />
      <field name="FOnWriteLine" type="TPSOnWriteLineEvent" visibility="protected" />
      <field name="FContinueOffsets" type="TPSList" visibility="protected" />
      <field name="FBreakOffsets" type="TPSList" visibility="protected" />
      <field name="FOnTranslateLineInfo" type="TPSOnTranslateLineInfoProc" visibility="protected" />
      <field name="FAutoFreeList" type="TPSList" visibility="protected" />
      <field name="FClasses" type="TPSList" visibility="protected" />
      <field name="FOnFunctionStart" type="TPSOnFunction" visibility="protected" />
      <field name="FOnFunctionEnd" type="TPSOnFunction" visibility="protected" />
      <field name="FWithCount" type="Integer" visibility="protected" />
      <field name="FTryCount" type="Integer" visibility="protected" />
      <field name="FExceptFinallyCount" type="Integer" visibility="protected" />
      <field name="FUnitInits" type="TPSList" visibility="protected" />
      <field name="FUnitFinits" type="TPSList" visibility="protected" />
      <field name="FUses" type="TPSStringList" visibility="protected" />
      <field name="fUnits" type="TPSUnitList" visibility="protected" />
      <field name="fUnit" type="TPSUnit" visibility="protected" />
      <field name="fModule" type="string" visibility="protected" />
      <field name="fInCompile" type="Integer" visibility="protected" />
      <field name="FInterfaces" type="TPSList" visibility="protected" />
      <field name="FCurrUsedTypeNo" type="Cardinal" visibility="protected" />
      <field name="FGlobalBlock" type="TPSBlockInfo" visibility="protected" />
      <function name="IsBoolean" visibility="protected">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetWideString" visibility="protected">
        <parameters>
          <parameter name="Src" type="PIfRVariant" />
          <parameter name="s" type="Boolean" paramflags="var" />
          <retval type="WideString" />
        </parameters>
      </function>
      <function name="GetUnicodeString" visibility="protected">
        <parameters>
          <parameter name="Src" type="PIfRVariant" />
          <parameter name="s" type="Boolean" paramflags="var" />
          <retval type="WideString" />
        </parameters>
      </function>
      <function name="PreCalc" visibility="protected">
        <parameters>
          <parameter name="FUseUsedTypes" type="Boolean" />
          <parameter name="Var1Mod" type="Byte" />
          <parameter name="var1" type="PIfRVariant" />
          <parameter name="Var2Mod" type="Byte" />
          <parameter name="Var2" type="PIfRVariant" />
          <parameter name="Cmd" type="TPSBinOperatorType" />
          <parameter name="Pos" type="Cardinal" />
          <parameter name="Row" type="Cardinal" />
          <parameter name="Col" type="Cardinal" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="FindBaseType" visibility="protected">
        <parameters>
          <parameter name="BaseType" type="Byte" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="IsIntBoolType" visibility="protected">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetTypeCopyLink" visibility="protected">
        <parameters>
          <parameter name="p" type="TPSType" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="at2ut" visibility="protected">
        <parameters>
          <parameter name="p" type="TPSType" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <procedure name="UseProc" visibility="protected">
        <parameters>
          <parameter name="procdecl" type="TPSParametersDecl" />
        </parameters>
      </procedure>
      <function name="GetMsgCount" visibility="protected">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetMsg" visibility="protected">
        <parameters>
          <parameter name="l" type="Integer" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="MakeExportDecl" visibility="protected">
        <parameters>
          <parameter name="decl" type="TPSParametersDecl" />
          <retval type="string" />
        </parameters>
      </function>
      <procedure name="DefineStandardTypes" visibility="protected">
      </procedure>
      <procedure name="DefineStandardProcedures" visibility="protected">
      </procedure>
      <function name="ReadReal" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ReadString" visibility="protected">
        <parameters>
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ReadInteger" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ReadAttributes" visibility="protected">
        <parameters>
          <parameter name="Dest" type="TPSAttributes" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ReadConstant" visibility="protected">
        <parameters>
          <parameter name="FParser" type="TPSPascalParser" />
          <parameter name="StopOn" type="TPSPasToken" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ApplyAttribsToFunction" visibility="protected">
        <parameters>
          <parameter name="func" type="TPSProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ProcessFunction" visibility="protected">
        <parameters>
          <parameter name="AlwaysForward" type="Boolean" />
          <parameter name="Att" type="TPSAttributes" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ValidateParameters" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
          <parameter name="Params" type="TPSParameters" />
          <parameter name="ParamTypes" type="TPSParametersDecl" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsVarInCompatible" visibility="protected">
        <parameters>
          <parameter name="ft1" type="TPSType" />
          <parameter name="ft2" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetTypeNo" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
          <parameter name="p" type="TPSValue" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="DoVarBlock" visibility="protected">
        <parameters>
          <parameter name="proc" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="DoTypeBlock" visibility="protected">
        <parameters>
          <parameter name="FParser" type="TPSPascalParser" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ReadType" visibility="protected">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FParser" type="TPSPascalParser" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="ProcessLabel" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ProcessSub" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ProcessLabelForwards" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="WriteDebugData" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="Debug_SavePosition" visibility="protected">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" />
          <parameter name="Proc" type="TPSInternalProcedure" />
        </parameters>
      </procedure>
      <procedure name="Debug_WriteParams" visibility="protected">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" />
          <parameter name="Proc" type="TPSInternalProcedure" />
        </parameters>
      </procedure>
      <procedure name="Debug_WriteLine" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
        </parameters>
      </procedure>
      <function name="IsCompatibleType" visibility="protected">
        <parameters>
          <parameter name="p1" type="TPSType" />
          <parameter name="p2" type="TPSType" />
          <parameter name="Cast" type="Boolean" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsDuplicate" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <parameter name="check" type="TPSDuplicCheck" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsInLocalUnitList" visibility="protected">
        <parameters>
          <parameter name="s" type="string" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="NewProc" visibility="protected">
        <parameters>
          <parameter name="OriginalName" type="string" paramflags="const" />
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSInternalProcedure" />
        </parameters>
      </function>
      <function name="AddUsedFunction" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" paramflags="var" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="AddUsedFunction2" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSExternalProcedure" paramflags="var" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="CheckCompatProc" visibility="protected">
        <parameters>
          <parameter name="P" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="ParserError" visibility="protected">
        <parameters>
          <parameter name="Parser" type="TObject" />
          <parameter name="Kind" type="TPSParserErrorKind" />
        </parameters>
      </procedure>
      <function name="ReadTypeAddProcedure" visibility="protected">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FParser" type="TPSPascalParser" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="VarIsDuplicate" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <parameter name="VarNames" type="string" paramflags="const" />
          <parameter name="s" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsProcDuplicLabel" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <parameter name="s" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="CheckForUnusedVars" visibility="protected">
        <parameters>
          <parameter name="Func" type="TPSInternalProcedure" />
        </parameters>
      </procedure>
      <function name="ProcIsDuplic" visibility="protected">
        <parameters>
          <parameter name="Decl" type="TPSParametersDecl" />
          <parameter name="FunctionName" type="string" paramflags="const" />
          <parameter name="FunctionParamNames" type="string" paramflags="const" />
          <parameter name="s" type="string" paramflags="const" />
          <parameter name="Func" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetConstant" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="UseExternalProc" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSParametersDecl" />
        </parameters>
      </function>
      <function name="FindProc" visibility="public">
        <parameters>
          <parameter name="aName" type="string" paramflags="const" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="GetTypeCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetType" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="GetVarCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetVar" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="GetProcCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetProc" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSProcedure" />
        </parameters>
      </function>
      <function name="GetConstCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetConst" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="GetRegProcCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetRegProc" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSRegProc" />
        </parameters>
      </function>
      <function name="AddAttributeType" visibility="public">
        <parameters>
          <retval type="TPSAttributeType" />
        </parameters>
      </function>
      <function name="FindAttributeType" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSAttributeType" />
        </parameters>
      </function>
      <procedure name="AddToFreeList" visibility="public">
        <parameters>
          <parameter name="Obj" type="TObject" />
        </parameters>
      </procedure>
      <property name="ID" visibility="public" read="FID" write="FID" type="Pointer" />
      <function name="MakeError" visibility="public">
        <parameters>
          <parameter name="Module" type="string" paramflags="const" />
          <parameter name="E" type="TPSPascalCompilerErrorType" />
          <parameter name="Param" type="string" paramflags="const" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="MakeWarning" visibility="public">
        <parameters>
          <parameter name="Module" type="string" paramflags="const" />
          <parameter name="E" type="TPSPascalCompilerWarningType" />
          <parameter name="Param" type="string" paramflags="const" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="MakeHint" visibility="public">
        <parameters>
          <parameter name="Module" type="string" paramflags="const" />
          <parameter name="E" type="TPSPascalCompilerHintType" />
          <parameter name="Param" type="string" paramflags="const" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="AddInterface" visibility="public">
        <parameters>
          <parameter name="InheritedFrom" type="TPSInterface" />
          <parameter name="Guid" type="TGUID" />
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSInterface" />
        </parameters>
      </function>
      <function name="FindInterface" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSInterface" />
        </parameters>
      </function>
      <function name="AddClass" visibility="public">
        <parameters>
          <parameter name="InheritsFrom" type="TPSCompileTimeClass" />
          <parameter name="aClass" type="TClass" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <function name="AddClassN" visibility="public">
        <parameters>
          <parameter name="InheritsFrom" type="TPSCompileTimeClass" />
          <parameter name="aClass" type="string" paramflags="const" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <function name="FindClass" visibility="public">
        <parameters>
          <parameter name="aClass" type="string" paramflags="const" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <function name="AddFunction" visibility="public">
        <parameters>
          <parameter name="Header" type="string" paramflags="const" />
          <retval type="TPSRegProc" />
        </parameters>
      </function>
      <function name="AddDelphiFunction" visibility="public">
        <parameters>
          <parameter name="Decl" type="string" paramflags="const" />
          <retval type="TPSRegProc" />
        </parameters>
      </function>
      <function name="AddType" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="BaseType" type="Byte" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddTypeS" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Decl" type="string" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddTypeCopy" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="TypeNo" type="TPSType" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddTypeCopyN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddConstant" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="AddConstantN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="AddVariable" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddVariableN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedVariable" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedVariableN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedPtrVariable" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedPtrVariableN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="FindType" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="MakeDecl" visibility="public">
        <parameters>
          <parameter name="decl" type="TPSParametersDecl" />
          <retval type="string" />
        </parameters>
      </function>
      <function name="Compile" visibility="public">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetOutput" visibility="public">
        <parameters>
          <parameter name="s" type="string" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetDebugOutput" visibility="public">
        <parameters>
          <parameter name="s" type="string" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="Clear" visibility="public">
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="MsgCount" visibility="public" read="GetMsgCount" type="Integer" />
      <property name="Msg" visibility="public" read="GetMsg" type="TPSPascalCompilerMessage" />
      <property name="OnTranslateLineInfo" visibility="public" read="FOnTranslateLineInfo" write="FOnTranslateLineInfo" type="TPSOnTranslateLineInfoProc" />
      <property name="OnUses" visibility="public" read="FOnUses" write="FOnUses" type="Boolean" />
      <property name="OnExportCheck" visibility="public" read="FOnExportCheck" write="FOnExportCheck" type="Boolean" />
      <property name="OnWriteLine" visibility="public" read="FOnWriteLine" write="FOnWriteLine" type="Boolean" />
      <property name="OnExternalProc" visibility="public" read="FOnExternalProc" write="FOnExternalProc" type="TPSRegProc" />
      <property name="OnUseVariable" visibility="public" read="FOnUseVariable" write="FOnUseVariable" type="TPSOnUseVariable" />
      <property name="OnBeforeOutput" visibility="public" read="FOnBeforeOutput" write="FOnBeforeOutput" type="Boolean" />
      <property name="OnBeforeCleanup" visibility="public" read="FOnBeforeCleanup" write="FOnBeforeCleanup" type="Boolean" />
      <event name="OnFunctionStart" visibility="public" read="FOnFunctionStart" write="FOnFunctionStart" type="TPSOnFunction" />
      <event name="OnFunctionEnd" visibility="public" read="FOnFunctionEnd" write="FOnFunctionEnd" type="TPSOnFunction" />
      <property name="IsUnit" visibility="public" read="FIsUnit" type="Boolean" />
      <property name="AllowNoBegin" visibility="public" read="FAllowNoBegin" write="FAllowNoBegin" type="Boolean" />
      <property name="AllowUnit" visibility="public" read="FAllowUnit" write="FAllowUnit" type="Boolean" />
      <property name="AllowNoEnd" visibility="public" read="FAllowNoEnd" write="FAllowNoEnd" type="Boolean" />
      <property name="BooleanShortCircuit" visibility="public" read="FBooleanShortCircuit" write="FBooleanShortCircuit" type="Boolean" />
      <property name="UTF8Decode" visibility="public" read="FUtf8Decode" write="FUtf8Decode" type="Boolean" />
      <property name="UnitName" visibility="public" read="FUnitName" type="string" />
    </members>
  </class>
  <class name="TIFPSPascalCompiler" alias="TPSPascalCompiler" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FAnyString" type="TPSType" visibility="protected" />
      <field name="FUnitName" type="string" visibility="protected" />
      <field name="FID" type="Pointer" visibility="protected" />
      <field name="FOnExportCheck" type="TPSOnExportCheck" visibility="protected" />
      <field name="FDefaultBoolType" type="TPSType" visibility="protected" />
      <field name="FRegProcs" type="TPSList" visibility="protected" />
      <field name="FConstants" type="TPSList" visibility="protected" />
      <field name="FProcs" type="TPSList" visibility="protected" />
      <field name="FTypes" type="TPSList" visibility="protected" />
      <field name="FAttributeTypes" type="TPSList" visibility="protected" />
      <field name="FVars" type="TPSList" visibility="protected" />
      <field name="FOutput" type="string" visibility="protected" />
      <field name="FParser" type="TPSPascalParser" visibility="protected" />
      <field name="FParserHadError" type="Boolean" visibility="protected" />
      <field name="FMessages" type="TPSList" visibility="protected" />
      <field name="FOnUses" type="TPSOnUses" visibility="protected" />
      <field name="FIsUnit" type="Boolean" visibility="protected" />
      <field name="FUtf8Decode" type="Boolean" visibility="protected" />
      <field name="FAllowNoBegin" type="Boolean" visibility="protected" />
      <field name="FAllowNoEnd" type="Boolean" visibility="protected" />
      <field name="FAllowUnit" type="Boolean" visibility="protected" />
      <field name="FBooleanShortCircuit" type="Boolean" visibility="protected" />
      <field name="FDebugOutput" type="string" visibility="protected" />
      <field name="FOnExternalProc" type="TPSOnExternalProc" visibility="protected" />
      <field name="FOnUseVariable" type="TPSOnUseVariable" visibility="protected" />
      <field name="FOnBeforeOutput" type="TPSOnNotify" visibility="protected" />
      <field name="FOnBeforeCleanup" type="TPSOnNotify" visibility="protected" />
      <field name="FOnWriteLine" type="TPSOnWriteLineEvent" visibility="protected" />
      <field name="FContinueOffsets" type="TPSList" visibility="protected" />
      <field name="FBreakOffsets" type="TPSList" visibility="protected" />
      <field name="FOnTranslateLineInfo" type="TPSOnTranslateLineInfoProc" visibility="protected" />
      <field name="FAutoFreeList" type="TPSList" visibility="protected" />
      <field name="FClasses" type="TPSList" visibility="protected" />
      <field name="FOnFunctionStart" type="TPSOnFunction" visibility="protected" />
      <field name="FOnFunctionEnd" type="TPSOnFunction" visibility="protected" />
      <field name="FWithCount" type="Integer" visibility="protected" />
      <field name="FTryCount" type="Integer" visibility="protected" />
      <field name="FExceptFinallyCount" type="Integer" visibility="protected" />
      <field name="FUnitInits" type="TPSList" visibility="protected" />
      <field name="FUnitFinits" type="TPSList" visibility="protected" />
      <field name="FUses" type="TPSStringList" visibility="protected" />
      <field name="fUnits" type="TPSUnitList" visibility="protected" />
      <field name="fUnit" type="TPSUnit" visibility="protected" />
      <field name="fModule" type="string" visibility="protected" />
      <field name="fInCompile" type="Integer" visibility="protected" />
      <field name="FInterfaces" type="TPSList" visibility="protected" />
      <field name="FCurrUsedTypeNo" type="Cardinal" visibility="protected" />
      <field name="FGlobalBlock" type="TPSBlockInfo" visibility="protected" />
      <function name="IsBoolean" visibility="protected">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetWideString" visibility="protected">
        <parameters>
          <parameter name="Src" type="PIfRVariant" />
          <parameter name="s" type="Boolean" paramflags="var" />
          <retval type="WideString" />
        </parameters>
      </function>
      <function name="GetUnicodeString" visibility="protected">
        <parameters>
          <parameter name="Src" type="PIfRVariant" />
          <parameter name="s" type="Boolean" paramflags="var" />
          <retval type="WideString" />
        </parameters>
      </function>
      <function name="PreCalc" visibility="protected">
        <parameters>
          <parameter name="FUseUsedTypes" type="Boolean" />
          <parameter name="Var1Mod" type="Byte" />
          <parameter name="var1" type="PIfRVariant" />
          <parameter name="Var2Mod" type="Byte" />
          <parameter name="Var2" type="PIfRVariant" />
          <parameter name="Cmd" type="TPSBinOperatorType" />
          <parameter name="Pos" type="Cardinal" />
          <parameter name="Row" type="Cardinal" />
          <parameter name="Col" type="Cardinal" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="FindBaseType" visibility="protected">
        <parameters>
          <parameter name="BaseType" type="Byte" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="IsIntBoolType" visibility="protected">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetTypeCopyLink" visibility="protected">
        <parameters>
          <parameter name="p" type="TPSType" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="at2ut" visibility="protected">
        <parameters>
          <parameter name="p" type="TPSType" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <procedure name="UseProc" visibility="protected">
        <parameters>
          <parameter name="procdecl" type="TPSParametersDecl" />
        </parameters>
      </procedure>
      <function name="GetMsgCount" visibility="protected">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetMsg" visibility="protected">
        <parameters>
          <parameter name="l" type="Integer" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="MakeExportDecl" visibility="protected">
        <parameters>
          <parameter name="decl" type="TPSParametersDecl" />
          <retval type="string" />
        </parameters>
      </function>
      <procedure name="DefineStandardTypes" visibility="protected">
      </procedure>
      <procedure name="DefineStandardProcedures" visibility="protected">
      </procedure>
      <function name="ReadReal" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ReadString" visibility="protected">
        <parameters>
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ReadInteger" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ReadAttributes" visibility="protected">
        <parameters>
          <parameter name="Dest" type="TPSAttributes" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ReadConstant" visibility="protected">
        <parameters>
          <parameter name="FParser" type="TPSPascalParser" />
          <parameter name="StopOn" type="TPSPasToken" />
          <retval type="PIfRVariant" />
        </parameters>
      </function>
      <function name="ApplyAttribsToFunction" visibility="protected">
        <parameters>
          <parameter name="func" type="TPSProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ProcessFunction" visibility="protected">
        <parameters>
          <parameter name="AlwaysForward" type="Boolean" />
          <parameter name="Att" type="TPSAttributes" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ValidateParameters" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
          <parameter name="Params" type="TPSParameters" />
          <parameter name="ParamTypes" type="TPSParametersDecl" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsVarInCompatible" visibility="protected">
        <parameters>
          <parameter name="ft1" type="TPSType" />
          <parameter name="ft2" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetTypeNo" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
          <parameter name="p" type="TPSValue" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="DoVarBlock" visibility="protected">
        <parameters>
          <parameter name="proc" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="DoTypeBlock" visibility="protected">
        <parameters>
          <parameter name="FParser" type="TPSPascalParser" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ReadType" visibility="protected">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FParser" type="TPSPascalParser" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="ProcessLabel" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ProcessSub" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ProcessLabelForwards" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="WriteDebugData" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <procedure name="Debug_SavePosition" visibility="protected">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" />
          <parameter name="Proc" type="TPSInternalProcedure" />
        </parameters>
      </procedure>
      <procedure name="Debug_WriteParams" visibility="protected">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" />
          <parameter name="Proc" type="TPSInternalProcedure" />
        </parameters>
      </procedure>
      <procedure name="Debug_WriteLine" visibility="protected">
        <parameters>
          <parameter name="BlockInfo" type="TPSBlockInfo" />
        </parameters>
      </procedure>
      <function name="IsCompatibleType" visibility="protected">
        <parameters>
          <parameter name="p1" type="TPSType" />
          <parameter name="p2" type="TPSType" />
          <parameter name="Cast" type="Boolean" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsDuplicate" visibility="protected">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <parameter name="check" type="TPSDuplicCheck" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsInLocalUnitList" visibility="protected">
        <parameters>
          <parameter name="s" type="string" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="NewProc" visibility="protected">
        <parameters>
          <parameter name="OriginalName" type="string" paramflags="const" />
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSInternalProcedure" />
        </parameters>
      </function>
      <function name="AddUsedFunction" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" paramflags="var" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="AddUsedFunction2" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSExternalProcedure" paramflags="var" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="CheckCompatProc" visibility="protected">
        <parameters>
          <parameter name="P" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="ParserError" visibility="protected">
        <parameters>
          <parameter name="Parser" type="TObject" />
          <parameter name="Kind" type="TPSParserErrorKind" />
        </parameters>
      </procedure>
      <function name="ReadTypeAddProcedure" visibility="protected">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FParser" type="TPSPascalParser" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="VarIsDuplicate" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <parameter name="VarNames" type="string" paramflags="const" />
          <parameter name="s" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsProcDuplicLabel" visibility="protected">
        <parameters>
          <parameter name="Proc" type="TPSInternalProcedure" />
          <parameter name="s" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="CheckForUnusedVars" visibility="protected">
        <parameters>
          <parameter name="Func" type="TPSInternalProcedure" />
        </parameters>
      </procedure>
      <function name="ProcIsDuplic" visibility="protected">
        <parameters>
          <parameter name="Decl" type="TPSParametersDecl" />
          <parameter name="FunctionName" type="string" paramflags="const" />
          <parameter name="FunctionParamNames" type="string" paramflags="const" />
          <parameter name="s" type="string" paramflags="const" />
          <parameter name="Func" type="TPSInternalProcedure" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetConstant" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="UseExternalProc" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSParametersDecl" />
        </parameters>
      </function>
      <function name="FindProc" visibility="public">
        <parameters>
          <parameter name="aName" type="string" paramflags="const" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="GetTypeCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetType" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="GetVarCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetVar" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="GetProcCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetProc" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSProcedure" />
        </parameters>
      </function>
      <function name="GetConstCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetConst" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="GetRegProcCount" visibility="public">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetRegProc" visibility="public">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSRegProc" />
        </parameters>
      </function>
      <function name="AddAttributeType" visibility="public">
        <parameters>
          <retval type="TPSAttributeType" />
        </parameters>
      </function>
      <function name="FindAttributeType" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSAttributeType" />
        </parameters>
      </function>
      <procedure name="AddToFreeList" visibility="public">
        <parameters>
          <parameter name="Obj" type="TObject" />
        </parameters>
      </procedure>
      <property name="ID" visibility="public" read="FID" write="FID" type="Pointer" />
      <function name="MakeError" visibility="public">
        <parameters>
          <parameter name="Module" type="string" paramflags="const" />
          <parameter name="E" type="TPSPascalCompilerErrorType" />
          <parameter name="Param" type="string" paramflags="const" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="MakeWarning" visibility="public">
        <parameters>
          <parameter name="Module" type="string" paramflags="const" />
          <parameter name="E" type="TPSPascalCompilerWarningType" />
          <parameter name="Param" type="string" paramflags="const" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="MakeHint" visibility="public">
        <parameters>
          <parameter name="Module" type="string" paramflags="const" />
          <parameter name="E" type="TPSPascalCompilerHintType" />
          <parameter name="Param" type="string" paramflags="const" />
          <retval type="TPSPascalCompilerMessage" />
        </parameters>
      </function>
      <function name="AddInterface" visibility="public">
        <parameters>
          <parameter name="InheritedFrom" type="TPSInterface" />
          <parameter name="Guid" type="TGUID" />
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSInterface" />
        </parameters>
      </function>
      <function name="FindInterface" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSInterface" />
        </parameters>
      </function>
      <function name="AddClass" visibility="public">
        <parameters>
          <parameter name="InheritsFrom" type="TPSCompileTimeClass" />
          <parameter name="aClass" type="TClass" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <function name="AddClassN" visibility="public">
        <parameters>
          <parameter name="InheritsFrom" type="TPSCompileTimeClass" />
          <parameter name="aClass" type="string" paramflags="const" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <function name="FindClass" visibility="public">
        <parameters>
          <parameter name="aClass" type="string" paramflags="const" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <function name="AddFunction" visibility="public">
        <parameters>
          <parameter name="Header" type="string" paramflags="const" />
          <retval type="TPSRegProc" />
        </parameters>
      </function>
      <function name="AddDelphiFunction" visibility="public">
        <parameters>
          <parameter name="Decl" type="string" paramflags="const" />
          <retval type="TPSRegProc" />
        </parameters>
      </function>
      <function name="AddType" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="BaseType" type="Byte" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddTypeS" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Decl" type="string" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddTypeCopy" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="TypeNo" type="TPSType" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddTypeCopyN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="AddConstant" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="AddConstantN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSConstant" />
        </parameters>
      </function>
      <function name="AddVariable" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddVariableN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedVariable" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedVariableN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedPtrVariable" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="TPSType" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="AddUsedPtrVariableN" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="FType" type="string" paramflags="const" />
          <retval type="TPSVar" />
        </parameters>
      </function>
      <function name="FindType" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="TPSType" />
        </parameters>
      </function>
      <function name="MakeDecl" visibility="public">
        <parameters>
          <parameter name="decl" type="TPSParametersDecl" />
          <retval type="string" />
        </parameters>
      </function>
      <function name="Compile" visibility="public">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetOutput" visibility="public">
        <parameters>
          <parameter name="s" type="string" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="GetDebugOutput" visibility="public">
        <parameters>
          <parameter name="s" type="string" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="Clear" visibility="public">
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="MsgCount" visibility="public" read="GetMsgCount" type="Integer" />
      <property name="Msg" visibility="public" read="GetMsg" type="TPSPascalCompilerMessage" />
      <property name="OnTranslateLineInfo" visibility="public" read="FOnTranslateLineInfo" write="FOnTranslateLineInfo" type="TPSOnTranslateLineInfoProc" />
      <property name="OnUses" visibility="public" read="FOnUses" write="FOnUses" type="Boolean" />
      <property name="OnExportCheck" visibility="public" read="FOnExportCheck" write="FOnExportCheck" type="Boolean" />
      <property name="OnWriteLine" visibility="public" read="FOnWriteLine" write="FOnWriteLine" type="Boolean" />
      <property name="OnExternalProc" visibility="public" read="FOnExternalProc" write="FOnExternalProc" type="TPSRegProc" />
      <property name="OnUseVariable" visibility="public" read="FOnUseVariable" write="FOnUseVariable" type="TPSOnUseVariable" />
      <property name="OnBeforeOutput" visibility="public" read="FOnBeforeOutput" write="FOnBeforeOutput" type="Boolean" />
      <property name="OnBeforeCleanup" visibility="public" read="FOnBeforeCleanup" write="FOnBeforeCleanup" type="Boolean" />
      <event name="OnFunctionStart" visibility="public" read="FOnFunctionStart" write="FOnFunctionStart" type="TPSOnFunction" />
      <event name="OnFunctionEnd" visibility="public" read="FOnFunctionEnd" write="FOnFunctionEnd" type="TPSOnFunction" />
      <property name="IsUnit" visibility="public" read="FIsUnit" type="Boolean" />
      <property name="AllowNoBegin" visibility="public" read="FAllowNoBegin" write="FAllowNoBegin" type="Boolean" />
      <property name="AllowUnit" visibility="public" read="FAllowUnit" write="FAllowUnit" type="Boolean" />
      <property name="AllowNoEnd" visibility="public" read="FAllowNoEnd" write="FAllowNoEnd" type="Boolean" />
      <property name="BooleanShortCircuit" visibility="public" read="FBooleanShortCircuit" write="FBooleanShortCircuit" type="Boolean" />
      <property name="UTF8Decode" visibility="public" read="FUtf8Decode" write="FUtf8Decode" type="Boolean" />
      <property name="UnitName" visibility="public" read="FUnitName" type="string" />
    </members>
  </class>
  <class name="TPSValue">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FPos" type="Cardinal" visibility="private" />
      <field name="FRow" type="Cardinal" visibility="private" />
      <field name="FCol" type="Cardinal" visibility="private" />
      <property name="Pos" visibility="public" read="FPos" write="FPos" type="Cardinal" />
      <property name="Row" visibility="public" read="FRow" write="FRow" type="Cardinal" />
      <property name="Col" visibility="public" read="FCol" write="FCol" type="Cardinal" />
      <procedure name="SetParserPos" visibility="public">
        <parameters>
          <parameter name="P" type="TPSPascalParser" />
        </parameters>
      </procedure>
    </members>
  </class>
  <class name="TPSParameter">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FValue" type="TPSValue" visibility="private" />
      <field name="FTempVar" type="TPSValue" visibility="private" />
      <field name="FParamMode" type="TPSParameterMode" visibility="private" />
      <field name="FExpectedType" type="TPSType" visibility="private" />
      <property name="Val" visibility="public" read="FValue" write="FValue" type="TPSValue" />
      <property name="ExpectedType" visibility="public" read="FExpectedType" write="FExpectedType" type="TPSType" />
      <property name="TempVar" visibility="public" read="FTempVar" write="FTempVar" type="TPSValue" />
      <property name="ParamMode" visibility="public" read="FParamMode" write="FParamMode" type="TPSParameterMode" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSParameters">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FItems" type="TPSList" visibility="private" />
      <function name="GetCount" visibility="private">
        <parameters>
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="GetItem" visibility="private">
        <parameters>
          <parameter name="I" type="Integer" />
          <retval type="TPSParameter" />
        </parameters>
      </function>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="Count" visibility="public" read="GetCount" type="Cardinal" />
      <property name="Item" visibility="public" read="GetItem" type="TPSParameter" />
      <procedure name="Delete" visibility="public">
        <parameters>
          <parameter name="I" type="Cardinal" />
        </parameters>
      </procedure>
      <function name="Add" visibility="public">
        <parameters>
          <retval type="TPSParameter" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSSubItem">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FType" type="TPSType" visibility="private" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
    </members>
  </class>
  <class name="TPSSubNumber">
    <ancestor name="TPSSubItem" namespace="uPSCompiler">
      <propertyref name="aType" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FSubNo" type="Cardinal" visibility="private" />
      <property name="SubNo" visibility="public" read="FSubNo" write="FSubNo" type="Cardinal" />
    </members>
  </class>
  <class name="TPSSubValue">
    <ancestor name="TPSSubItem" namespace="uPSCompiler">
      <propertyref name="aType" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FSubNo" type="TPSValue" visibility="private" />
      <property name="SubNo" visibility="public" read="FSubNo" write="FSubNo" type="TPSValue" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSValueVar">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FRecItems" type="TPSList" visibility="private" />
      <function name="GetRecCount" visibility="private">
        <parameters>
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="GetRecItem" visibility="private">
        <parameters>
          <parameter name="I" type="Cardinal" />
          <retval type="TPSSubItem" />
        </parameters>
      </function>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <function name="RecAdd" visibility="public">
        <parameters>
          <parameter name="Val" type="TPSSubItem" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <procedure name="RecDelete" visibility="public">
        <parameters>
          <parameter name="I" type="Cardinal" />
        </parameters>
      </procedure>
      <property name="RecItem" visibility="public" read="GetRecItem" type="TPSSubItem" />
      <property name="RecCount" visibility="public" read="GetRecCount" type="Cardinal" />
    </members>
  </class>
  <class name="TPSValueGlobalVar">
    <ancestor name="TPSValueVar" namespace="uPSCompiler">
      <methodref name="GetRecCount" visibility="private" />
      <methodref name="GetRecItem" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <methodref name="RecAdd" visibility="public" />
      <methodref name="RecDelete" visibility="public" />
      <propertyref name="RecItem" visibility="public" />
      <propertyref name="RecCount" visibility="public" />
      <ancestor name="TPSValue" namespace="uPSCompiler">
        <propertyref name="Pos" visibility="public" />
        <propertyref name="Row" visibility="public" />
        <propertyref name="Col" visibility="public" />
        <methodref name="SetParserPos" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FAddress" type="Cardinal" visibility="private" />
      <property name="GlobalVarNo" visibility="public" read="FAddress" write="FAddress" type="Cardinal" />
    </members>
  </class>
  <class name="TPSValueLocalVar">
    <ancestor name="TPSValueVar" namespace="uPSCompiler">
      <methodref name="GetRecCount" visibility="private" />
      <methodref name="GetRecItem" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <methodref name="RecAdd" visibility="public" />
      <methodref name="RecDelete" visibility="public" />
      <propertyref name="RecItem" visibility="public" />
      <propertyref name="RecCount" visibility="public" />
      <ancestor name="TPSValue" namespace="uPSCompiler">
        <propertyref name="Pos" visibility="public" />
        <propertyref name="Row" visibility="public" />
        <propertyref name="Col" visibility="public" />
        <methodref name="SetParserPos" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FLocalVarNo" type="Integer" visibility="private" />
      <property name="LocalVarNo" visibility="public" read="FLocalVarNo" write="FLocalVarNo" type="Integer" />
    </members>
  </class>
  <class name="TPSValueParamVar">
    <ancestor name="TPSValueVar" namespace="uPSCompiler">
      <methodref name="GetRecCount" visibility="private" />
      <methodref name="GetRecItem" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <methodref name="RecAdd" visibility="public" />
      <methodref name="RecDelete" visibility="public" />
      <propertyref name="RecItem" visibility="public" />
      <propertyref name="RecCount" visibility="public" />
      <ancestor name="TPSValue" namespace="uPSCompiler">
        <propertyref name="Pos" visibility="public" />
        <propertyref name="Row" visibility="public" />
        <propertyref name="Col" visibility="public" />
        <methodref name="SetParserPos" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FParamNo" type="Integer" visibility="private" />
      <property name="ParamNo" visibility="public" read="FParamNo" write="FParamNo" type="Integer" />
    </members>
  </class>
  <class name="TPSValueAllocatedStackVar">
    <ancestor name="TPSValueLocalVar" namespace="uPSCompiler">
      <propertyref name="LocalVarNo" visibility="public" />
      <ancestor name="TPSValueVar" namespace="uPSCompiler">
        <methodref name="GetRecCount" visibility="private" />
        <methodref name="GetRecItem" visibility="private" />
        <methodref name="Create" visibility="public" />
        <methodref name="Destroy" visibility="public" />
        <methodref name="RecAdd" visibility="public" />
        <methodref name="RecDelete" visibility="public" />
        <propertyref name="RecItem" visibility="public" />
        <propertyref name="RecCount" visibility="public" />
        <ancestor name="TPSValue" namespace="uPSCompiler">
          <propertyref name="Pos" visibility="public" />
          <propertyref name="Row" visibility="public" />
          <propertyref name="Col" visibility="public" />
          <methodref name="SetParserPos" visibility="public" />
          <ancestor name="TObject" namespace="System">
            <methodref name="Create" visibility="public">
            </methodref>
            <methodref name="Free" visibility="public">
            </methodref>
            <methodref name="InitInstance" visibility="public">
            </methodref>
            <methodref name="CleanupInstance" visibility="public">
            </methodref>
            <methodref name="ClassType" visibility="public">
            </methodref>
            <methodref name="ClassName" visibility="public">
            </methodref>
            <methodref name="ClassNameIs" visibility="public">
            </methodref>
            <methodref name="ClassParent" visibility="public">
            </methodref>
            <methodref name="ClassInfo" visibility="public">
            </methodref>
            <methodref name="InstanceSize" visibility="public">
            </methodref>
            <methodref name="InheritsFrom" visibility="public">
            </methodref>
            <methodref name="MethodAddress" visibility="public">
            </methodref>
            <methodref name="MethodName" visibility="public">
            </methodref>
            <methodref name="FieldAddress" visibility="public">
            </methodref>
            <methodref name="GetInterface" visibility="public">
            </methodref>
            <methodref name="GetInterfaceEntry" visibility="public">
            </methodref>
            <methodref name="GetInterfaceTable" visibility="public">
            </methodref>
            <methodref name="SafeCallException" visibility="public">
            </methodref>
            <methodref name="AfterConstruction" visibility="public">
            </methodref>
            <methodref name="BeforeDestruction" visibility="public">
            </methodref>
            <methodref name="Dispatch" visibility="public">
            </methodref>
            <methodref name="DefaultHandler" visibility="public">
            </methodref>
            <methodref name="NewInstance" visibility="public">
            </methodref>
            <methodref name="FreeInstance" visibility="public">
            </methodref>
            <methodref name="Destroy" visibility="public">
            </methodref>
          </ancestor>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FProc" type="TPSInternalProcedure" visibility="private" />
      <property name="Proc" visibility="public" read="FProc" write="FProc" type="TPSInternalProcedure" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSValueData">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FData" type="PIfRVariant" visibility="private" />
      <property name="Data" visibility="public" read="FData" write="FData" type="PIfRVariant" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSValueReplace">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FPreWriteAllocated" type="Boolean" visibility="private" />
      <field name="FFreeOldValue" type="Boolean" visibility="private" />
      <field name="FFreeNewValue" type="Boolean" visibility="private" />
      <field name="FOldValue" type="TPSValue" visibility="private" />
      <field name="FNewValue" type="TPSValue" visibility="private" />
      <field name="FReplaceTimes" type="Integer" visibility="private" />
      <property name="OldValue" visibility="public" read="FOldValue" write="FOldValue" type="TPSValue" />
      <property name="NewValue" visibility="public" read="FNewValue" write="FNewValue" type="TPSValue" />
      <property name="FreeOldValue" visibility="public" read="FFreeOldValue" write="FFreeOldValue" type="Boolean" />
      <property name="FreeNewValue" visibility="public" read="FFreeNewValue" write="FFreeNewValue" type="Boolean" />
      <property name="PreWriteAllocated" visibility="public" read="FPreWriteAllocated" write="FPreWriteAllocated" type="Boolean" />
      <property name="ReplaceTimes" visibility="public" read="FReplaceTimes" write="FReplaceTimes" type="Integer" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSUnValueOp">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FVal1" type="TPSValue" visibility="private" />
      <field name="FOperator" type="TPSUnOperatorType" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <property name="Val1" visibility="public" read="FVal1" write="FVal1" type="TPSValue" />
      <property name="Operator" visibility="public" read="FOperator" write="FOperator" type="TPSUnOperatorType" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSBinValueOp">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FVal1" type="TPSValue" visibility="private" />
      <field name="FVal2" type="TPSValue" visibility="private" />
      <field name="FOperator" type="TPSBinOperatorType" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <property name="Val1" visibility="public" read="FVal1" write="FVal1" type="TPSValue" />
      <property name="Val2" visibility="public" read="FVal2" write="FVal2" type="TPSValue" />
      <property name="Operator" visibility="public" read="FOperator" write="FOperator" type="TPSBinOperatorType" />
      <property name="aType" visibility="public" read="FType" write="FType" type="TPSType" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSValueNil">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
  </class>
  <class name="TPSValueProcPtr">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FProcNo" type="Cardinal" visibility="private" />
      <property name="ProcPtr" visibility="public" read="FProcNo" write="FProcNo" type="Cardinal" />
    </members>
  </class>
  <class name="TPSValueProc">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FSelfPtr" type="TPSValue" visibility="private" />
      <field name="FParameters" type="TPSParameters" visibility="private" />
      <field name="FResultType" type="TPSType" visibility="private" />
      <property name="ResultType" visibility="public" read="FResultType" write="FResultType" type="TPSType" />
      <property name="SelfPtr" visibility="public" read="FSelfPtr" write="FSelfPtr" type="TPSValue" />
      <property name="Parameters" visibility="public" read="FParameters" write="FParameters" type="TPSParameters" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSValueProcNo">
    <ancestor name="TPSValueProc" namespace="uPSCompiler">
      <propertyref name="ResultType" visibility="public" />
      <propertyref name="SelfPtr" visibility="public" />
      <propertyref name="Parameters" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <ancestor name="TPSValue" namespace="uPSCompiler">
        <propertyref name="Pos" visibility="public" />
        <propertyref name="Row" visibility="public" />
        <propertyref name="Col" visibility="public" />
        <methodref name="SetParserPos" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FProcNo" type="Cardinal" visibility="private" />
      <property name="ProcNo" visibility="public" read="FProcNo" write="FProcNo" type="Cardinal" />
    </members>
  </class>
  <class name="TPSValueProcVal">
    <ancestor name="TPSValueProc" namespace="uPSCompiler">
      <propertyref name="ResultType" visibility="public" />
      <propertyref name="SelfPtr" visibility="public" />
      <propertyref name="Parameters" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <ancestor name="TPSValue" namespace="uPSCompiler">
        <propertyref name="Pos" visibility="public" />
        <propertyref name="Row" visibility="public" />
        <propertyref name="Col" visibility="public" />
        <methodref name="SetParserPos" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
    <members>
      <field name="FProcNo" type="TPSValue" visibility="private" />
      <property name="ProcNo" visibility="public" read="FProcNo" write="FProcNo" type="TPSValue" />
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSValueArray">
    <ancestor name="TPSValue" namespace="uPSCompiler">
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="SetParserPos" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FItems" type="TPSList" visibility="private" />
      <function name="GetCount" visibility="private">
        <parameters>
          <retval type="Cardinal" />
        </parameters>
      </function>
      <function name="GetItem" visibility="private">
        <parameters>
          <parameter name="I" type="Cardinal" />
          <retval type="TPSValue" />
        </parameters>
      </function>
      <function name="Add" visibility="public">
        <parameters>
          <parameter name="Item" type="TPSValue" />
          <retval type="Cardinal" />
        </parameters>
      </function>
      <procedure name="Delete" visibility="public">
        <parameters>
          <parameter name="I" type="Cardinal" />
        </parameters>
      </procedure>
      <property name="Item" visibility="public" read="GetItem" type="TPSValue" />
      <property name="Count" visibility="public" read="GetCount" type="Cardinal" />
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <const name="iptRW" type="TPSPropType">
    <value>
      iptRW
    </value>
  </const>
  <const name="iptR" type="TPSPropType">
    <value>
      iptR
    </value>
  </const>
  <const name="iptW" type="TPSPropType">
    <value>
      iptW
    </value>
  </const>
  <enum name="TPSPropType">
    <element name="iptRW" />
    <element name="iptR" />
    <element name="iptW" />
  </enum>
  <class name="TPSCompileTimeClass">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FInheritsFrom" type="TPSCompileTimeClass" visibility="private" />
      <field name="FClass" type="TClass" visibility="private" />
      <field name="FClassName" type="string" visibility="private" />
      <field name="FClassNameHash" type="Integer" visibility="private" />
      <field name="FClassItems" type="TPSList" visibility="private" />
      <field name="FDefaultProperty" type="Cardinal" visibility="private" />
      <field name="FIsAbstract" type="Boolean" visibility="private" />
      <field name="FCastProc" type="Cardinal" visibility="private" />
      <field name="FNilProc" type="Cardinal" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FOwner" type="TPSPascalCompiler" visibility="private" />
      <function name="GetCount" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetItem" visibility="private">
        <parameters>
          <parameter name="i" type="Integer" />
          <retval type="TPSDelphiClassItem" />
        </parameters>
      </function>
      <property name="aType" visibility="public" read="FType" type="TPSType" />
      <property name="Items" visibility="public" read="GetItem" type="TPSDelphiClassItem" />
      <property name="Count" visibility="public" read="GetCount" type="Integer" />
      <property name="IsAbstract" visibility="public" read="FIsAbstract" write="FIsAbstract" type="Boolean" />
      <property name="ClassInheritsFrom" visibility="public" read="FInheritsFrom" write="FInheritsFrom" type="TPSCompileTimeClass" />
      <function name="RegisterMethod" visibility="public">
        <parameters>
          <parameter name="Decl" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="RegisterProperty" visibility="public">
        <parameters>
          <parameter name="PropertyName" type="string" paramflags="const" />
          <parameter name="PropertyType" type="string" paramflags="const" />
          <parameter name="PropAC" type="TPSPropType" />
        </parameters>
      </procedure>
      <procedure name="RegisterPublishedProperties" visibility="public">
      </procedure>
      <function name="RegisterPublishedProperty" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="SetDefaultPropery" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="ClassName" type="string" />
          <parameter name="aOwner" type="TPSPascalCompiler" />
          <parameter name="aType" type="TPSType" />
        </parameters>
      </constructor>
      <function name="CreateC" visibility="public" procflags="class">
        <parameters>
          <parameter name="FClass" type="TClass" />
          <parameter name="aOwner" type="TPSPascalCompiler" />
          <parameter name="aType" type="TPSType" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <function name="IsCompatibleWith" visibility="public">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="SetNil" visibility="public">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="CastToType" visibility="public">
        <parameters>
          <parameter name="IntoType" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_Get" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_Set" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_GetHeader" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="Dest" type="TPSParametersDecl" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Call" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ClassFunc_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ClassFunc_Call" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSDelphiClassItem">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FOwner" type="TPSCompileTimeClass" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FDecl" type="TPSParametersDecl" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="s" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="Owner" type="TPSCompileTimeClass" />
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="Decl" visibility="public" read="FDecl" type="TPSParametersDecl" />
      <property name="Name" visibility="public" read="FName" type="string" />
      <property name="OrgName" visibility="public" read="FOrgName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Owner" visibility="public" read="FOwner" type="TPSCompileTimeClass" />
    </members>
  </class>
  <class name="TPSDelphiClassItemMethod">
    <ancestor name="TPSDelphiClassItem" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Decl" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="OrgName" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="Owner" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FMethodNo" type="Cardinal" visibility="private" />
      <property name="MethodNo" visibility="public" read="FMethodNo" write="FMethodNo" type="Cardinal" />
    </members>
  </class>
  <class name="TPSDelphiClassItemProperty">
    <ancestor name="TPSDelphiClassItem" namespace="uPSCompiler">
      <methodref name="SetName" visibility="private" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <propertyref name="Decl" visibility="public" />
      <propertyref name="Name" visibility="public" />
      <propertyref name="OrgName" visibility="public" />
      <propertyref name="NameHash" visibility="public" />
      <propertyref name="Owner" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FReadProcNo" type="Cardinal" visibility="private" />
      <field name="FWriteProcNo" type="Cardinal" visibility="private" />
      <field name="FAccessType" type="TPSPropType" visibility="private" />
      <property name="AccessType" visibility="public" read="FAccessType" write="FAccessType" type="TPSPropType" />
      <property name="ReadProcNo" visibility="public" read="FReadProcNo" write="FReadProcNo" type="Cardinal" />
      <property name="WriteProcNo" visibility="public" read="FWriteProcNo" write="FWriteProcNo" type="Cardinal" />
    </members>
  </class>
  <class name="TPSDelphiClassItemConstructor">
    <ancestor name="TPSDelphiClassItemMethod" namespace="uPSCompiler">
      <propertyref name="MethodNo" visibility="public" />
      <ancestor name="TPSDelphiClassItem" namespace="uPSCompiler">
        <methodref name="SetName" visibility="private" />
        <methodref name="Create" visibility="public" />
        <methodref name="Destroy" visibility="public" />
        <propertyref name="Decl" visibility="public" />
        <propertyref name="Name" visibility="public" />
        <propertyref name="OrgName" visibility="public" />
        <propertyref name="NameHash" visibility="public" />
        <propertyref name="Owner" visibility="public" />
        <ancestor name="TObject" namespace="System">
          <methodref name="Create" visibility="public">
          </methodref>
          <methodref name="Free" visibility="public">
          </methodref>
          <methodref name="InitInstance" visibility="public">
          </methodref>
          <methodref name="CleanupInstance" visibility="public">
          </methodref>
          <methodref name="ClassType" visibility="public">
          </methodref>
          <methodref name="ClassName" visibility="public">
          </methodref>
          <methodref name="ClassNameIs" visibility="public">
          </methodref>
          <methodref name="ClassParent" visibility="public">
          </methodref>
          <methodref name="ClassInfo" visibility="public">
          </methodref>
          <methodref name="InstanceSize" visibility="public">
          </methodref>
          <methodref name="InheritsFrom" visibility="public">
          </methodref>
          <methodref name="MethodAddress" visibility="public">
          </methodref>
          <methodref name="MethodName" visibility="public">
          </methodref>
          <methodref name="FieldAddress" visibility="public">
          </methodref>
          <methodref name="GetInterface" visibility="public">
          </methodref>
          <methodref name="GetInterfaceEntry" visibility="public">
          </methodref>
          <methodref name="GetInterfaceTable" visibility="public">
          </methodref>
          <methodref name="SafeCallException" visibility="public">
          </methodref>
          <methodref name="AfterConstruction" visibility="public">
          </methodref>
          <methodref name="BeforeDestruction" visibility="public">
          </methodref>
          <methodref name="Dispatch" visibility="public">
          </methodref>
          <methodref name="DefaultHandler" visibility="public">
          </methodref>
          <methodref name="NewInstance" visibility="public">
          </methodref>
          <methodref name="FreeInstance" visibility="public">
          </methodref>
          <methodref name="Destroy" visibility="public">
          </methodref>
        </ancestor>
      </ancestor>
    </ancestor>
  </class>
  <class name="TPSInterface">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FOwner" type="TPSPascalCompiler" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FInheritedFrom" type="TPSInterface" visibility="private" />
      <field name="FGuid" type="TGUID" visibility="private" />
      <field name="FCastProc" type="Cardinal" visibility="private" />
      <field name="FNilProc" type="Cardinal" visibility="private" />
      <field name="FProcStart" type="Cardinal" visibility="private" />
      <field name="FItems" type="TPSList" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <procedure name="SetInheritedFrom" visibility="private">
        <parameters>
          <parameter name="p" type="TPSInterface" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="Owner" type="TPSPascalCompiler" />
          <parameter name="InheritedFrom" type="TPSInterface" />
          <parameter name="Guid" type="TGUID" />
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="aType" type="TPSType" />
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="aType" visibility="public" read="FType" type="TPSType" />
      <property name="InheritedFrom" visibility="public" read="FInheritedFrom" write="SetInheritedFrom" type="TPSInterface" />
      <property name="Guid" visibility="public" read="FGuid" write="FGuid" type="TGUID" />
      <property name="Name" visibility="public" read="FName" write="FName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <function name="RegisterMethod" visibility="public">
        <parameters>
          <parameter name="Declaration" type="string" paramflags="const" />
          <parameter name="cc" type="TPSCallingConvention" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="RegisterMethodEx" visibility="public">
        <parameters>
          <parameter name="Declaration" type="string" paramflags="const" />
          <parameter name="cc" type="TPSCallingConvention" paramflags="const" />
          <parameter name="CustomParser" type="TPSPascalParser" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="RegisterDummyMethod" visibility="public">
      </procedure>
      <function name="IsCompatibleWith" visibility="public">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="SetNil" visibility="public">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="CastToType" visibility="public">
        <parameters>
          <parameter name="IntoType" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Call" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TPSInterfaceMethod">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FName" type="string" visibility="private" />
      <field name="FDecl" type="TPSParametersDecl" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FCC" type="TPSCallingConvention" visibility="private" />
      <field name="FScriptProcNo" type="Cardinal" visibility="private" />
      <field name="FOrgName" type="string" visibility="private" />
      <field name="FOwner" type="TPSInterface" visibility="private" />
      <field name="FOffsetCache" type="Cardinal" visibility="private" />
      <function name="GetAbsoluteProcOffset" visibility="private">
        <parameters>
          <retval type="Cardinal" />
        </parameters>
      </function>
      <property name="AbsoluteProcOffset" visibility="public" read="GetAbsoluteProcOffset" type="Cardinal" />
      <property name="ScriptProcNo" visibility="public" read="FScriptProcNo" type="Cardinal" />
      <property name="OrgName" visibility="public" read="FOrgName" type="string" />
      <property name="Name" visibility="public" read="FName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="Decl" visibility="public" read="FDecl" type="TPSParametersDecl" />
      <property name="CC" visibility="public" read="FCC" type="TPSCallingConvention" />
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="Owner" type="TPSInterface" />
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
    </members>
  </class>
  <class name="TPSExternalClass">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="SE" type="TPSPascalCompiler" visibility="protected" />
      <field name="FTypeNo" type="TPSType" visibility="protected" />
      <function name="SelfType" visibility="public" procflags="virtual">
        <parameters>
          <retval type="TPSType" />
        </parameters>
      </function>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="Se" type="TPSPascalCompiler" />
          <parameter name="TypeNo" type="TPSType" />
        </parameters>
      </constructor>
      <function name="ClassFunc_Find" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ClassFunc_Call" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Find" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Call" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="IsCompatibleWith" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="Cl" type="TPSExternalClass" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="SetNil" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="CastToType" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="IntoType" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="CompareClass" visibility="public" procflags="virtual">
        <parameters>
          <parameter name="OtherTypeNo" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
    </members>
  </class>
  <const name="InvalidVal" type="Cardinal">
    <value>
      $FFFFFFFF
    </value>
  </const>
  <class name="TIFPSCompileTimeClass" alias="TPSCompileTimeClass" namespace="uPSCompiler">
    <ancestor name="TObject" namespace="System">
      <methodref name="Create" visibility="public">
      </methodref>
      <methodref name="Free" visibility="public">
      </methodref>
      <methodref name="InitInstance" visibility="public">
      </methodref>
      <methodref name="CleanupInstance" visibility="public">
      </methodref>
      <methodref name="ClassType" visibility="public">
      </methodref>
      <methodref name="ClassName" visibility="public">
      </methodref>
      <methodref name="ClassNameIs" visibility="public">
      </methodref>
      <methodref name="ClassParent" visibility="public">
      </methodref>
      <methodref name="ClassInfo" visibility="public">
      </methodref>
      <methodref name="InstanceSize" visibility="public">
      </methodref>
      <methodref name="InheritsFrom" visibility="public">
      </methodref>
      <methodref name="MethodAddress" visibility="public">
      </methodref>
      <methodref name="MethodName" visibility="public">
      </methodref>
      <methodref name="FieldAddress" visibility="public">
      </methodref>
      <methodref name="GetInterface" visibility="public">
      </methodref>
      <methodref name="GetInterfaceEntry" visibility="public">
      </methodref>
      <methodref name="GetInterfaceTable" visibility="public">
      </methodref>
      <methodref name="SafeCallException" visibility="public">
      </methodref>
      <methodref name="AfterConstruction" visibility="public">
      </methodref>
      <methodref name="BeforeDestruction" visibility="public">
      </methodref>
      <methodref name="Dispatch" visibility="public">
      </methodref>
      <methodref name="DefaultHandler" visibility="public">
      </methodref>
      <methodref name="NewInstance" visibility="public">
      </methodref>
      <methodref name="FreeInstance" visibility="public">
      </methodref>
      <methodref name="Destroy" visibility="public">
      </methodref>
    </ancestor>
    <members>
      <field name="FInheritsFrom" type="TPSCompileTimeClass" visibility="private" />
      <field name="FClass" type="TClass" visibility="private" />
      <field name="FClassName" type="string" visibility="private" />
      <field name="FClassNameHash" type="Integer" visibility="private" />
      <field name="FClassItems" type="TPSList" visibility="private" />
      <field name="FDefaultProperty" type="Cardinal" visibility="private" />
      <field name="FIsAbstract" type="Boolean" visibility="private" />
      <field name="FCastProc" type="Cardinal" visibility="private" />
      <field name="FNilProc" type="Cardinal" visibility="private" />
      <field name="FType" type="TPSType" visibility="private" />
      <field name="FOwner" type="TPSPascalCompiler" visibility="private" />
      <function name="GetCount" visibility="private">
        <parameters>
          <retval type="Integer" />
        </parameters>
      </function>
      <function name="GetItem" visibility="private">
        <parameters>
          <parameter name="i" type="Integer" />
          <retval type="TPSDelphiClassItem" />
        </parameters>
      </function>
      <property name="aType" visibility="public" read="FType" type="TPSType" />
      <property name="Items" visibility="public" read="GetItem" type="TPSDelphiClassItem" />
      <property name="Count" visibility="public" read="GetCount" type="Integer" />
      <property name="IsAbstract" visibility="public" read="FIsAbstract" write="FIsAbstract" type="Boolean" />
      <property name="ClassInheritsFrom" visibility="public" read="FInheritsFrom" write="FInheritsFrom" type="TPSCompileTimeClass" />
      <function name="RegisterMethod" visibility="public">
        <parameters>
          <parameter name="Decl" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="RegisterProperty" visibility="public">
        <parameters>
          <parameter name="PropertyName" type="string" paramflags="const" />
          <parameter name="PropertyType" type="string" paramflags="const" />
          <parameter name="PropAC" type="TPSPropType" />
        </parameters>
      </procedure>
      <procedure name="RegisterPublishedProperties" visibility="public">
      </procedure>
      <function name="RegisterPublishedProperty" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <procedure name="SetDefaultPropery" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
          <parameter name="ClassName" type="string" />
          <parameter name="aOwner" type="TPSPascalCompiler" />
          <parameter name="aType" type="TPSType" />
        </parameters>
      </constructor>
      <function name="CreateC" visibility="public" procflags="class">
        <parameters>
          <parameter name="FClass" type="TClass" />
          <parameter name="aOwner" type="TPSPascalCompiler" />
          <parameter name="aType" type="TPSType" />
          <retval type="TPSCompileTimeClass" />
        </parameters>
      </function>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <function name="IsCompatibleWith" visibility="public">
        <parameters>
          <parameter name="aType" type="TPSType" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="SetNil" visibility="public">
        <parameters>
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="CastToType" visibility="public">
        <parameters>
          <parameter name="IntoType" type="TPSType" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_Get" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_Set" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Property_GetHeader" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="Dest" type="TPSParametersDecl" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="Func_Call" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ClassFunc_Find" visibility="public">
        <parameters>
          <parameter name="Name" type="string" paramflags="const" />
          <parameter name="Index" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
      <function name="ClassFunc_Call" visibility="public">
        <parameters>
          <parameter name="Index" type="Cardinal" />
          <parameter name="ProcNo" type="Cardinal" paramflags="var" />
          <retval type="Boolean" />
        </parameters>
      </function>
    </members>
  </class>
  <class name="TIFPSInternalProcedure" alias="TPSInternalProcedure" namespace="uPSCompiler">
    <ancestor name="TPSProcedure" namespace="uPSCompiler">
      <propertyref name="Attributes" visibility="public" />
      <methodref name="Create" visibility="public" />
      <methodref name="Destroy" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FForwarded" type="Boolean" visibility="private" />
      <field name="FData" type="string" visibility="private" />
      <field name="FNameHash" type="Integer" visibility="private" />
      <field name="FName" type="string" visibility="private" />
      <field name="FDecl" type="TPSParametersDecl" visibility="private" />
      <field name="FProcVars" type="TPSList" visibility="private" />
      <field name="FUsed" type="Boolean" visibility="private" />
      <field name="FOutputDeclPosition" type="Cardinal" visibility="private" />
      <field name="FResultUsed" type="Boolean" visibility="private" />
      <field name="FLabels" type="TPSStringList" visibility="private" />
      <field name="FGotos" type="TPSStringList" visibility="private" />
      <field name="FDeclareRow" type="Cardinal" visibility="private" />
      <field name="FDeclareUnit" type="string" visibility="private" />
      <field name="FDeclarePos" type="Cardinal" visibility="private" />
      <field name="FDeclareCol" type="Cardinal" visibility="private" />
      <field name="FOriginalName" type="string" visibility="private" />
      <procedure name="SetName" visibility="private">
        <parameters>
          <parameter name="Value" type="string" paramflags="const" />
        </parameters>
      </procedure>
      <constructor name="Create" visibility="public">
        <parameters>
        </parameters>
      </constructor>
      <destructor name="Destroy" visibility="public">
        <parameters>
        </parameters>
      </destructor>
      <property name="Forwarded" visibility="public" read="FForwarded" write="FForwarded" type="Boolean" />
      <property name="Data" visibility="public" read="FData" write="FData" type="string" />
      <property name="Decl" visibility="public" read="FDecl" type="TPSParametersDecl" />
      <property name="OriginalName" visibility="public" read="FOriginalName" write="FOriginalName" type="string" />
      <property name="Name" visibility="public" read="FName" write="SetName" type="string" />
      <property name="NameHash" visibility="public" read="FNameHash" type="Integer" />
      <property name="ProcVars" visibility="public" read="FProcVars" type="TPSList" />
      <property name="Used" visibility="public" read="FUsed" type="Boolean" />
      <property name="DeclareUnit" visibility="public" read="FDeclareUnit" write="FDeclareUnit" type="string" />
      <property name="DeclarePos" visibility="public" read="FDeclarePos" write="FDeclarePos" type="Cardinal" />
      <property name="DeclareRow" visibility="public" read="FDeclareRow" write="FDeclareRow" type="Cardinal" />
      <property name="DeclareCol" visibility="public" read="FDeclareCol" write="FDeclareCol" type="Cardinal" />
      <property name="OutputDeclPosition" visibility="public" read="FOutputDeclPosition" write="FOutputDeclPosition" type="Cardinal" />
      <property name="ResultUsed" visibility="public" read="FResultUsed" type="Boolean" />
      <property name="Labels" visibility="public" read="FLabels" type="TPSStringList" />
      <property name="Gotos" visibility="public" read="FGotos" type="TPSStringList" />
      <procedure name="Use" visibility="public">
      </procedure>
      <procedure name="ResultUse" visibility="public">
      </procedure>
    </members>
  </class>
  <class name="TIFPSPascalCompilerError" alias="TPSPascalCompilerError" namespace="uPSCompiler">
    <ancestor name="TPSPascalCompilerMessage" namespace="uPSCompiler">
      <methodref name="SetParserPos" visibility="protected" />
      <propertyref name="ModuleName" visibility="public" />
      <propertyref name="Param" visibility="public" />
      <propertyref name="Pos" visibility="public" />
      <propertyref name="Row" visibility="public" />
      <propertyref name="Col" visibility="public" />
      <methodref name="ErrorType" visibility="public" />
      <methodref name="SetCustomPos" visibility="public" />
      <methodref name="MessageToString" visibility="public" />
      <methodref name="ShortMessageToString" visibility="public" />
      <ancestor name="TObject" namespace="System">
        <methodref name="Create" visibility="public">
        </methodref>
        <methodref name="Free" visibility="public">
        </methodref>
        <methodref name="InitInstance" visibility="public">
        </methodref>
        <methodref name="CleanupInstance" visibility="public">
        </methodref>
        <methodref name="ClassType" visibility="public">
        </methodref>
        <methodref name="ClassName" visibility="public">
        </methodref>
        <methodref name="ClassNameIs" visibility="public">
        </methodref>
        <methodref name="ClassParent" visibility="public">
        </methodref>
        <methodref name="ClassInfo" visibility="public">
        </methodref>
        <methodref name="InstanceSize" visibility="public">
        </methodref>
        <methodref name="InheritsFrom" visibility="public">
        </methodref>
        <methodref name="MethodAddress" visibility="public">
        </methodref>
        <methodref name="MethodName" visibility="public">
        </methodref>
        <methodref name="FieldAddress" visibility="public">
        </methodref>
        <methodref name="GetInterface" visibility="public">
        </methodref>
        <methodref name="GetInterfaceEntry" visibility="public">
        </methodref>
        <methodref name="GetInterfaceTable" visibility="public">
        </methodref>
        <methodref name="SafeCallException" visibility="public">
        </methodref>
        <methodref name="AfterConstruction" visibility="public">
        </methodref>
        <methodref name="BeforeDestruction" visibility="public">
        </methodref>
        <methodref name="Dispatch" visibility="public">
        </methodref>
        <methodref name="DefaultHandler" visibility="public">
        </methodref>
        <methodref name="NewInstance" visibility="public">
        </methodref>
        <methodref name="FreeInstance" visibility="public">
        </methodref>
        <methodref name="Destroy" visibility="public">
        </methodref>
      </ancestor>
    </ancestor>
    <members>
      <field name="FError" type="TPSPascalCompilerErrorType" visibility="protected" />
      <property name="Error" visibility="public" read="FError" type="TPSPascalCompilerErrorType" />
      <function name="ErrorType" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
      <function name="ShortMessageToString" visibility="public" procflags="override">
        <parameters>
          <retval type="string" />
        </parameters>
      </function>
    </members>
  </class>
  <const name="mftProc" type="TPMFuncType">
    <value>
      mftProc
    </value>
  </const>
  <const name="mftConstructor" type="TPMFuncType">
    <value>
      mftConstructor
    </value>
  </const>
  <enum name="TPMFuncType">
    <element name="mftProc" />
    <element name="mftConstructor" />
  </enum>
  <function name="DeclToBits" visibility="public">
    <parameters>
      <parameter name="Decl" type="TPSParametersDecl" paramflags="const" />
      <retval type="string" />
    </parameters>
  </function>
  <function name="ExportCheck" visibility="public">
    <parameters>
      <parameter name="Sender" type="TPSPascalCompiler" />
      <parameter name="Proc" type="TPSInternalProcedure" />
      <parameter name="Types">
        <array name="Types">
          <element type="Byte" />
        </array>
      </parameter>
      <parameter name="Modes">
        <array name="Modes">
          <element type="TPSParameterMode" />
        </array>
      </parameter>
      <retval type="Boolean" />
    </parameters>
  </function>
  <procedure name="SetVarExportName" visibility="public">
    <parameters>
      <parameter name="P" type="TPSVar" />
      <parameter name="ExpName" type="string" paramflags="const" />
    </parameters>
  </procedure>
  <function name="ParseMethod" visibility="public">
    <parameters>
      <parameter name="Owner" type="TPSPascalCompiler" />
      <parameter name="FClassName" type="string" paramflags="const" />
      <parameter name="Decl" type="string" />
      <parameter name="OrgName" type="string" paramflags="var" />
      <parameter name="DestDecl" type="TPSParametersDecl" />
      <parameter name="Func" type="TPMFuncType" paramflags="var" />
      <retval type="Boolean" />
    </parameters>
  </function>
  <function name="ParseMethodEx" visibility="public">
    <parameters>
      <parameter name="Owner" type="TPSPascalCompiler" />
      <parameter name="FClassName" type="string" paramflags="const" />
      <parameter name="Decl" type="string" />
      <parameter name="OrgName" type="string" paramflags="var" />
      <parameter name="DestDecl" type="TPSParametersDecl" />
      <parameter name="Func" type="TPMFuncType" paramflags="var" />
      <parameter name="CustomParser" type="TPSPascalParser" />
      <retval type="Boolean" />
    </parameters>
  </function>
  <function name="PS_mi2s" visibility="public">
    <parameters>
      <parameter name="i" type="Cardinal" />
      <retval type="string" />
    </parameters>
  </function>
  <function name="NewVariant" visibility="public">
    <parameters>
      <parameter name="FType" type="TPSType" />
      <retval type="PIfRVariant" />
    </parameters>
  </function>
  <procedure name="DisposeVariant" visibility="public">
    <parameters>
      <parameter name="p" type="PIfRVariant" />
    </parameters>
  </procedure>
  <function name="AddImportedClassVariable" visibility="public">
    <parameters>
      <parameter name="Sender" type="TPSPascalCompiler" />
      <parameter name="VarName" type="string" paramflags="const" />
      <parameter name="VarType" type="string" paramflags="const" />
      <retval type="Boolean" />
    </parameters>
  </function>
</namespace>
